N 
— 
=) 


SYS 
04 


— ot 
—— —— 
kd Od 4 Od Ong Sand Od Od Dans Od Ong nd On 


“oe —— 
—— —— 
aaaa 
aaaaqa 

aa aa 

aa aa 

aa aa 

aa aa 

aa aa 

aa aa 

gaagaagaaaaaaaaa 

aaaagaaaaaaaaaaa 

px jo. ju. Sa. 

9999999979999 95 
>> 
——s 
—s 
os 
os 
i 

=“ 
45-3"5 

me 

ie 

he 

en 


ed ee ee a ee ee od oo oe 
el ee ee ee et oo 


Ri 
a 
a 
My 
_ ww wu 
ww wu 
@ usu wu ww 
uw ww wu 
wu uw wu 
ww wu wu 
wu uw wu 


ovo ovovueo 
oo oo ovo 
oo oo oo 
oo uo owe 
oo yuo oo 
oo oo 
uo ovo 
VVVVIVN909000 
VUV IN VOU9U90N 
nn MMWnM “nw WMMnn 
nn MMMM nn MMMmM 
own nw nn “wn “nw own 
nw nn “ww nn nn nw 
nn mn “nw nw nn nw 
nn “nn nw nn nn nw 
own mn wn nn wow “wn 
mn nn nn mw mn “nw 
Munn nw WNNWnn “nw 
MMMM ow MMWMn wn 
>>> > 
>>> > 
>> oo ceeeonaied 
>> “om ens 
>>> >> >>> I at a at ag ag ae eg Os nt Ot 
>> > > > > DD Fd ad ad nd Od ag Od Od ed Os Od Oa Od 
>> i ramet 
>> —— ousent 
>>> > 
>> >> 
nw NMNWM a4 
nw MMM a 
nn mn nn s4 
nw nn own jJj4 
ww nn wn saH4 
nw nn nn aja4 
nn nn “nw a4 
nn nn nw a4 
sao tsod ttt IS 
NMNMM mown ee ee ee ee 


**F ILE**#1D**SYSGETJP] 
$ 
$ 
$ 
Ss 
$s 
$s 
LL 


SYSGETJPI 

Table of contents 
(4) 30 
(4) 44 
(4) 84 
(5) 10467 
3 UR 
(3) 4888 
(7) 1 4 
(8) 1639 
(8) 1744 
(8) 1872 


NS 
- GETJPI main 
ex item lis 
- Validate item 
Extract a bitfiel 
Ay i fers to user 


gheating | List of itens in process 
q. tree 3 detue 
buffer 


h data from ne AL process PHD 
> aaale special condition 

- Move data from user to s 
- Move data from system bu 
= Get specified process ID 


Vvooxirm—mnm 
<<mcc SmMouen 
Mmm nmoocr 


wmma 


Page 0 


ny 
‘n 


$ 


14 
SYSGETJPI - GET JOB PROCESS INFORMATION SYSTER SER 16-SEP-1984 02:08:35 YAX/VMS Macro V04-00 Pa 1 
voe-600 o73Fb= 1382 88:8 241 (CSYS.SRCISYSGETJPI.MAR;1 ne (1) 


-TITLE SYSGETJPI - GET JOB PROCESS INFORMATION SYSTEM SERVICE 
- IDENT *ybes000! 


—PARAARAARAAAAAAAAALAAAALALALEAA LALA LARA ARR AAAS EASELS ELAR REAR ESLER SEL AE SS SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPHENT _GORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESER 


OFTWARE IS Pyani sues UNDER A LICENSE AND MAY BE USED AND sonics 
N_ ACCO Ae | WITH THE TERMS OF SUCH parts AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
Pp 


E I 
0 RSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
TRANSFERRED. - 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPORAT Oe NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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‘ 
s eccocenccecccccrecececncnsecceeececnnscecececeeqqnncssecoeceeqceesseceeeetes 


-+¢ 
; FACILITY: VMS Executive, System services. 


; ABSTRACT: 


Return accounting, quota, and informational data about the current 
process, or any other process. 


; ENVIRONMENT: Kernel Mode 
; AUTHOR: Henry M. Levy , CREATION DATE: 20-October-1977 
; MODIFIED BY: 


; VO3-024 MSHOO71 Michael S. Harvey 26-Jul-1984 
; Don't clobber user address peace when issuing JPI items 


SOOCOSCOSOOSOSOSOOOOSOSOSOSOOSOSOSOSOSOSOSOSOOOOSOOSOOOOOSoSSo 
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OOoo° 


Oo 


that get serviced via kernel ASTs. 


v03-023 MSHO062 Michael S. Harve 66-Jul-1984 
Don't skip the NULL process wm be ‘uildcarding through 
the process set. 


v03-022 MsHp0s0 Michael S. Harvey 1-May-1984 
ook for image name in designated area whenever an AME 
Ss running in the process. 


v03-021 HwWS0055 Harold Schultz 11-A ro 19e4 
Add JPIS_MASTER_PID item so that the PID of 
master process tn a job can be accessed. 
Cs nce the MPID in the JIB is in internal format, it 
s translated to extended format before it is returned) 
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Change frie POE OEE special processing entry point to 
be local. 


v03-020 CwH3020 CW Hobbs 20-Mar-1984 
Add JPI$_PROC_INDEX item so that applications which used to 
look at Ehe low word of the PID can adapt. 


v03-019 mSH0010 Michael S. Harvey 14-Feb-1984 
Restructure internal item yyy tables to 
accomodate counted strings up to 255 bytes. 


v03-018 KFHOO09 Ken Henderson 7 Sep 1983 
Fix KFHOOO8 more thoroughly 
Also add SPC_MODE routine. 


v03-017 KFHOOOS Ken Henderson 29 Aug 1983 
Add documentation on how 
to add itemcodes. 


v03-016 KFHOOOS Ken Henderson 18 Aug 1983 
Don't return ACCVIO if can't get data 

v03-015 wmMc0001 Wayne Cardoza 28-Jul-1983 
Allow chained item Lists. 

v03-014 KFHOOO07 Ken Henderson 18 Jul 1983 
Fixed IMAGNAME bug in source. 

v03-013 KFHOO006 Ken Henderson 12 Jul 1983 
Fixed STRDSC bug in source. 

v03-012 KFHOOOS Ken Henderson 16 Jun 1983 
Fixed various bugs in source. 

V03-011 KFHOO04 Ken Henderson 27 May 1983 


Added HEXSTR datatype to macro. 
Fixed wildcarding bug, DELPEN bug, 
and sKAST buffer length bug. Cleaned 
up use of stack scratch space. 


v03-010 KFHOO0S Ken Henderson 24 Mar 1983 
Fetch other processes’ PHD items directly 


ODOOOCOCOOOOOOSOSOSOOSOSOOSOSOSOOSOOSOOSOSOOSOOSOSOSOOOSOOOSOoOO 
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0 
if the header is resident, and allow 
NULL and SWAPPER processes to be visible. 
; v03-009 KFHOO02 Ken Henderson 1 Mar 1983 
Mods to support bitfield item-codes. 
6 v03-008 CwWH1002 CW Hobbs 25-Feb-1983 
0 Modify to use extended pids. Use SCHSC_SWPPIX to locate the 


oF 
pcb of the swapper. 


v03-007 KFHOOO!1 Ken Henderson 10 Feb 1983 
Condense the table macros into JPI_ITEM_CODE, 
and add call the JPI_GENERATE_TABLE to Tnvoke 
JPI_ITEM_CODE for each item-code. 
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v03-006 loeb: Lawrence J. Kenah 22-0c t-1982 
serresy erroncoys reference to ASTCNT. Make routine that checks 
accessibility of image name a or, rout ine. 


v03-005 LJK0157 ence pore 
Add support for ath IMAGE COUNT. to L1BsePa 5 Seotte 


v03-004 LJK0155 Lawrence J. Kenah 1-Apr-1982 
Handle quota deductions in consistent teohten. 


v03-003 MSHO001 Reryenn Hinden 23-Mar-1982 
Fix broken BSBW's 


v03-002 DWwT0032 David Thiel 22-Mar-1982 
looks length of probe for returning asynchronous result 
en 


< 


vO3-001 LJK0146 Lawrence J. Kenah 16-Mar-1982 
Correct bugs along code path for not enough ganpegee pool. 
Use action routine to convert AUTHPRI item. Do not return 
address items for another process. Add additional check 
that item List has not changed before second scan. 


DOQOOCOCOCOOCOOOOOCOOOOOOOCOoOoO 


SOOoQooooooooooooo 
SOoOOCOOCOOCOOCOOOOOCOOOOOOoOOoOO 


SOOOCCOCCOCOCOOCOCOOCOOOOOOOOOOoOO 


et i as — > 4s a > — bs 2 5» 2s 2 49 2 2 > 


WAWWWIWIWIWIIIononononononononon 2] 2 SS 


DBNAOUE WN" OOONAUE WN OOONOu 


14 
SYSGETJPI - GET JOB PROCESS INFORMATION svsten SER 16-SEP-1984 02:08:35 YAX/VMS Macro V04-00 Page SY 
voe-600 $236 b= 1382 8:3 241 (CSYS.SRCISYSGETJPI.MAR; 1 ° (3) va 
; GUIDE TO GETJPI/GETSYI/GETDVI 


sOverview 


;These three system services are table-driven. The macro definition files 
jthat help define their fantes are shared with DCL and the RTL. This results 
sin new item-codes becoming useable with DCL's FSGETXXI Lexical functions and 
zthe RTL's LIBSGETXXI routines automatically. Additionally, new SYSBOOT 
sparameters become item-codes to the GETSYIs. 


:The macro definition files are called JPITABLE.MAR, SYITABLE.MAR, and 
;DVITABLE.MAR, and Live in MASD$:<VMSLIB.SRC>. During a systembuild, the 
sare inserted into the Library SYSSLIBRARY:SYSBLDMLB.MLB. DCL and the RT 
sand SYS use this | brary to define their GETXXI tables. The system 
sparameter file <SYS.SRC>SYSPARAM.MAR has also been conditionalized to be 
zused to define GETSYI item-codes and is also inserted into SYSBLDMLB.MLB. 


SYSBLOMLB.MLB is a general macro tocery for holding macro 
: definitions that are shared between facilities, but will not 
ship to the customer. 


;When adding an item-code, at least two files need to be edited. One of the 
smacro files Listed above, as well as an SDL file that defines the 16-bit 
snumber which is the user-visible item-code. Also, if a SYSBOOT parameter is 
sadded, an SDL file needs to be updated to define the new GETSYI item-code. 


:The GETOVI service actually uses only one table, but the GETSYI and GETJPI 
zservices use several. The JPITABLE file defines all the tables for GETJPI 
gand the SYITABLE file defines all the tables for GETSYI. The different 
tables group the pieces of data according to method of retrieval. 


SoOOoCOCOCOOOSOSCoOOOOCOOSOSOOOSOOOOOSOOSoOSO 


SOoOoQoooooooooooooooo 


zIn some cases, the piece of data to be returned by the service requires 
special processing to fetch, calculate, or format it before returning it. 
sIn these cases, the code of the system service needs to be enhanced. 

8 ;I1f the data returned is a new format for DCL, the lexical function 

9 ;module of DCL may need to be enhanced. This is also true for the RTL code. 
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;The Macros 


tA two-level schone rr. for Ay: the ieee gables used by the three 
iserv ces and the othe ities. — 7 efined macro (called 

ENERAT TABLE. $Y1 TOENERATE: TABLE r DVI_GENERATE TABLE) contain 
‘au le ce Ts to a lower-level macro tcalled JPI_ITEM_CODE, SYI ITEM. Cove, 
M_ CODE) a ch actually defines each element " th e table. 
¢ the GENERATE_TABLE eecres are commonly defined, ITEM_CODE macros 
oe “ads vidually defined according to the needs of fae tity: . (For instance, 
the LEXICON module must store the name 9 the i son, Hy an ASCIC string - in 
sorder to mated t with the string “ Lied in the FSGETXXI function call; 
; the other facilities need not store the item name in text.) 


When an item-code must be added, an additional call to the _ITEM_CODE macro 
smust be added to the ante PaBrE’ _GENERATE_ me macro. In the case of GETJPI 
sand GETDOVI, the _GENER ABLE macro is defined in the JPITABLE and DVITABLE 
yrig:& The SYI- GENERATE, Ite gneces is defined by the SySPARAM oy B 


n 
isyl. GENERATE TABLE pve Bg Chen eas in that mode (when AEH Eg is o Fivedli. 
ithe “SYI_ITEMTABLES By ia. ose pecouss art of the SYI_GENERATE_TABLE macro. 
esvli prenvasi ss s defined in the SYITABLE module and Contains all the calls 

e SYI_ITEM_CODE macro that are Not related to SYSBOOT parameters. 
‘then nee feereu if defined in SYSPARAM, the PARAMETER ansee ote not allocate 
ior store egnery but rather passes some of the argume o it on through via 
28 corr ‘feesYi gi fer. CODE. That is how all the calls to nPARAMETER become calls 
° fe] 7 


sThe following is the situation that exists when the s abet GETSYISW is Gat ined. 
zThe non-SYSBOOT items are defined by the macro SYI_ITEMTABLES in SYITABLE. 

:The SYSBOOT Weeee are defined by each invokation of the PARAMETER macro rT 
3SYSPARAM.MAR. e that each invokation of the PQL macro in SYSPARAM.MAR 

3 invokes me PARAMETER macro twice. When GETSYISW is defined, the PARAMETER 
macro merel q asses its arguments through to a call to the gyi _ITEM_CODE 
macro. The SYI_ITEM_CODE macro is locally defined as needed by the facility. 


pee tenons seen ee meen see ee eee ee SH eee HH ewe SH eee ETS Secon en emer wen oe oae we a 


OOOOCCCOOCOOOOOOoOooooooooooooooooooo 
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CONAWIE AN OS OOO NAME WIN 9 OOD NIA NE WIN $C OD NAME" OOO NOUNS 
Sete 


6 3} SYI _GENERATE_ _TABLE 
:{  SYI_ITEMTABLES 
0 3 ! PARAMETER } POL 
3 | PARAMETER | PARAMETER 
0 ziSYI. ITEM_CODE! tsvI _ITEM_CODE! SYI_ITEM_CODE!SYI_ITEM_CODE!SYI_ITEM CODE! 
5 :\ /\ / 
0 F / \ / 
0 : FROM SYITABLE.MAR FROM SYSPARAM.MAR 
0 (NON-SYSBOOT ITEMS) (SYSBOOT ITEMS) 
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So 


14 
socess INFORMATION svsten SER 1 mi tet §¢:9 73 AX/VMS 


.SBTTL DECLARATIONS 
; INCLUDE FILES: 


SYSGETJPI - GET Macro v04-00 
yon 808 DECLAR SYS.SRCISYSGETJP1.MAR;1 


>ea 
“— 


I 
4 
5 SACBDEF 3; AST control block parameters 
§ SDYNDEF : dynamic memory block types 
SIFDDEF ; image file descriptor block 
3 SIPLDEF ; interrupt priority levels 
SJIBDEF 3; define job information bigek 
40 SJPIDEF 3; define GETJPI item identifiers 
4 SPCBDEF : define process control block 
4 SPHDDEF 3; define process header 
0 4 SPSLDEF 3 processor state lLongword 
00 44 SSTATEDEF 3; scheduler state definitions 
B38 45 SPRDEF ; define processor registers 
00 rf SPRIDEF ; define priority increment classes 
0000 4 SRSNDEF ; define resource wait codes 
44 48 SSSDEF 3; define status codes 
00 49 
$000 20 . MACROS 
B33 
000 98% 
itd 55 ; Macros to define entries in the six item information tables. 
4464 2$ ; There is a table for each data structure from which the user may 
000 57; rqquees information, and one table for information returned as an 
0000 58 ; address. Tables are indexed by low byte of item identifier. 
4 2B 3; Refer to ‘OWN STORAGE:"' for pictures of the table entries. 
00 61° 
$000 6¢ «MACRO JPI_ITEM_CODE BASE,- ; for service to use 
00 6 E.- ; of the item-code 
00 64 SOURCE ,- 3; of the data 
00 65 DTYPE,- ; of returned value 
000 26 BITPOS,- : of 'bitval’ field 
000 6 BITSIZ,- 3; of ‘bitval’ field 
4 68 OUTLEN,- : of returned value 
; H STRUCT 3 centaining the field 
090 71 IF WOT per iMED JPIS "NAME 
ie -WARN ; JPI$_"NAME' TS NOT DEFINED IN STARDEFFL.SDL 
8 7 -ENDC 
74 
75 STEP = 4 
6 LIF IDENTICAL <BASE><PCB>, STEP zs ; 
7 LIF IDENTICAL <BASE><PHD>, STEP z 
8 LIF IDENTICAL <BASE><ADR>, STEP = 3 
7 LIF IDENTICAL <BASE><CTL>, STEP z 
0 LIF IDENTICAL <BASE><PCBFLD>, STEP z7 
. 1 LIF IDENTICAL <BASE><PHDFLD>, STEP z 7 
0 - =BASE* TBL+<<JP1$_ "NAMEG“XFF>*STEP> 
p 5 LIF IDENTICAL <BASE><PCB>, «WORD ‘STRUCT'S'SOURCE 
6 LIF IDENTICAL <BASE><PHD>, -WORD ‘STRUCT'S*SOURCE 


SYSGETJPI - GET J 
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7 Hit DENTICAL <BASE><PCBFLD>, .WORD eres toune 
LIF IDENTICAL <BASE><PHDFLD>, .WORD PHDS'SOURC 
“Ht DENTICAL <BASE><ADR>, «LONG sons 
LIF IDENTICAL <BASE><CTL>, «LONG SOURC 
$4 lf JOENT CAL Fe fos] BFLD> 
-WORD <'BITSIZ'=1>a11!PCBSV_"BITPOS' 
32 -ENDC 
38 ~1F IDENTICAL <BASE><PHDFLD> 
9 «WORD <*BITSIZ'=-1>a11!PHD$V_'BITPOS' 
38 ~ENDC 
IF DIFFERENT <BASE><ADR> 
§ $XX$ = VALUE 
LIF IDENTICAL <DTYPE><HEXNUM>, = VALUE 
4 LIF IDENTICAL <DTYPE><DECNUM>, $XX$ = VALUE 
5 -LIF IDENTICAL <DTYPE><HEXSTR>, $XX$ = BSTRING 
BS LIF IDENTICAL <DTYPE><PRVMSK>, $XX$ = BSTRING 
0 LIF IDENTICAL <DTYPE><PRTMSK>, $XX$ = BSTRING 
4 LIF IDENTICAL <DTYPE><PADSTR>, $XX$ = BSTRING 
0 -LIF IDENTICAL <DTYPE><CNTSTR>, $XX$ = CSTRING 
19 LIF IDENTICAL <DTYPE><STRDSC>, $XX$ = DSTRING 
1 LIF IDENTICAL <DTYPE><BITVEC>, $XX$ = VALUE 
\¢ LIF IDENTICAL <DTYPE><BITVAL>, $XX$ = BOOLE 
1 LIF IDENTICAL <DTYPE><STDUIC>, $XX$ = VALUE 
14 LIF IDENTICAL <DTYPE><STDTIM>, $XX$ = BSTRING 
1? LIF IDENTICAL <DTYPE><ACPTYP>, $XX$ = BSTRING 
9 -BYTE  $XX$ 
\3 -BYTE OUTLEN 
y -ENDC ; IF DIFFERENT <BASE><ADR> 
§ -BYTE JPISC_"STRUCT'TYPE 
4 -ENDM  JPI_ITEM_CODE 
8 ; This macro defines the entries to the table of special items. 
3; The items in this table must be handled by action routines 
9 3; before being returned. Each entry has a word item identifier 
: followed by the address of an action routine. 
: -MACRO tS? tg [yen NAME , ROUT INE 
6 “ADDRESS ROUTINE 
é -ENDM = SPECIAL_ITEM 
40 ; This macro defines flag bits. 
4 o 
rk -MACRO JPIBITS NAME,SIZE 
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” 
SEP=1 SYS.SRCISYSGETJPI.MAR;1 (4) 
JPI_V_'NAME® = JPI_ BIT 
JPIZS"'"NAME’ = SIZE 
JPI-BIT = JPI_BIT + SIZE 
-ENBM = SPIBITS 
EQUATED SYMBOLS: 
EFN = 4 3; event flag number argument 
PIDADR = 8 3 address of PID 
PRCNAM = \2 3; address of name descriptor 
ITMLST = 1 3; address of item identifiers 
10SB = 20 3; 1/0 status block address 
ASTADR = $3 3 ast routine address 
ASTPRM = 28 3; ast parameter 


Space is left on stack for routines which may 
manipulate values before returning them. 


L_SPACE = -40 
TCH = LOCAL_SPACE+0 
EF = LOCAL _SPACE+1 
EMP = LOCAC_SPACE+20 
T = LOCAL_ 
T = LOCAL ~SPACE+ 
= LOCAL_SPACE+36 


“NOL vMuwr 
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Bit definitions for flags longword on stack 


JPI_BIT = 0 

JPIBITS WILD,1 ; we're doing a wildcard operation 
JPIBITS NULLSWAP,1 : the target is NULL or SWAPPER 
JPIBITS STRDSC,1 3; the datatype is a string descriptor 


MAX_ADR_ITEM = <JPIS_LASTADR&*XFF>-1 ; maximum ADRTBL item number 
MAX_CTL_ITEM = <JPIS_LASTCTLO*XFF>-1 ; maximum CTLTBL item number 
MAX_PCB_ITEM = <JPIS_LASTPCBS“XFF>-1 ; maximum PCBTBL item number 
MAX_PHD_ ITEM = <JPIS$_LASTPHDG*XFF>-1 ; maximum PHDTBL item number 
MAX-PCBFLD_ITEM = <JPIS_LASTPCBFLD&*XFF>-1 ; max PCBFLDTBL item number 
MAX_PHDFLD_ITEM = <JPIS_LASTPHDFLD&*XFF>-1 ; max PHDFLDTBL item number 


Data type codes (all numeric types have same code) 


VALUE = 0 3 numeric value 
BSTRING = 1 3 blank tis leg string 
CSTRING = 2 ; counted ascii string 
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00000003 401 BOOLE = 3 ; bit value 
? § DSTRING = 4 ; string descriptor 
404 ; 
? 5 ; AST control block extensions 
. ? > SDEFINI ACB 
0000001¢ tf 409 - =ACBSL_KAST+4 : 
if 411 SDEF ACB_L_DADDR BLKL 1 ; data buffer address 
tig SDEF ACB_L_EFN -BLKL 1 3; event flag number 
4 415 SDEF ACB_L_1I0SB i‘ oe 3; completion AST routine addr 
8 414 SDEF ACB_L_OPID -BLKL 1 ; original requester's PID 
O2C 415 SDEF ACB_L_IMGCNT -BLKL 1 ; PHDSL_IMGCNT of requester 
030 $18 SDEF ACB_L_COUNT BLKL 1 : item descriptor count 
r 2 SDEF ACB_L_ILIST 3; item descriptor List 
0000000C¢ 4 ? ‘19 ACB_C_IDESC = 12 ; item descriptor size 
8856 4 $DEFEND ACB 
000 4 
0000 4 
000 424 ; 
B66 425 ; OWN STORAGE: 
00 426; 
000 427 
00000000 428 -PSECT YFSSSYSGETJPI 
44 429 
000 430 ; 
44 431 ; This array contains the maximum item number for each of the 
4 4 § 3; six item data structures, indexed by structure number. 
000 435 ; 
00 434 
00 435 MAXCOUNT: 
01 3p 4 $ -BYTE MAX_ADR_ITEM 
9 01 4 BYTE MAX_CTL_ITEM 
¢ 4h) $38 -BYTE MAX_PCB_ITEM 
8 0 439 -BYTE MAX_PHD iTEM 
FF 0004 440 -BYTE MAX"PCBFLD_ITEM 
FF 0005 441 ~BYTE MAX_PHDFLD_ITEM 
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id 
w 
a 
Ld 
a 


o V04-00 
GETJPI.MAR;1 
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SYS.S 
Each data structure {is indexed 


Sp-1984 O8:s8:a1 


efine the six item data structures. 


D 
by item identifier. 
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DECLARATIONS 


Fae 38 ae 


ud 
@ 
— 
« 
a 
4 


MTFTNDOPR. DOO CUM TN OR. DOO UMTS 
STS TTT TOOOOnnwinmn OoWwo 
i i i i ee ee ee ee 


: define adr table 
:; define ctl table 
; define pcbfld table 


3; define pcb table 
; define phd table 


EN 
7*<MAX_PCBFLD_ITEM+1> 


5*<MAX_ADR_ITEM+1> 
7*<MAX_CTL_ITEM+1> 
E JPISC_PCBTYPE 
5*<MAX_PCB_ITEM+1> 
5*<MAX_PHD_ITEM+1> 


YTE SPISC PCBFLDTYPE 


WORD XXXSOFFSET 
; «BYTE DTYPE 


WORD <BITS12-1>811!BITPOS 
BYTE DTYPE 
ORD XXXSOFFSET 


“BYTE JPISC_ADRTYPE 
BYTE OUT 


“BYTE JPISC_CTLTYPE 
LEN 
BYTE JPISC_PHDTYPE 


~WORD XXXSOFFSET 
; -BYTE DTYPE 


; -BYTE OUT 
WORD XXXSOFFSET 


LONG ADDRESS 


; -LONG ADDRESS 
; -BYTE LENGTH 


: iBYT 


-BLKB 

-BLKB 

-BLKB 
PCBFLDTBL: 


-BLKB 
; old 


PHDFLDTBL: 


DOK NUM NOR ODO— CUM TIN OR. ODOK—CUM NOR. OD 
ORR. 000000000000 0000 COCO DOO PO OO 
SSS SSS SSS SESS ESSE SSSI IS 


DWDOOOODOQOQCOCOOCOOCOCOR-R. RRR RR PRR. RAPA OO OO 


00000010 
00000101 
00000101 


ss 


00000101 


0000000C 


OCESS INFORMATION SYSTER SER 1grseb= 138% 96:08:33 Yana 


| 
5 
5 
8 
| 
3, 
34 


Q 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


4 
5 
; 
8 
9 
0 
1 
g 
4 
5 
; 
8 
9 
0 
1 
§ : 
4 
5 
; 
8 
9 
0 
1 
g 
4 
5 
? 
8 
9 
0 
1 
2 


SPECIAL: 


SPECIAL_ 


-BYT 
“BYTE 


-BLKB 
- SAVE 


«WORD <BITSIZ-1>811!B1TPOS 
E OTYPE 

OUTLE 

«BYTE JPISC 


7*<MAX_PHDFLD_ITEM+1> 


SEP=19 


N 
_PHDFLDTYPE 


JP1_GENERATE_TARLE 


- RESTORE 


—-— NYAMMNONNOOY WHOM 
vuvuVvVUUvVUU UUDU 
2 Mmmmmmnmmm mo|n 
BSSEBSBESESBEEBZ SIT 


E 


3 Table to define items which must be handled 
3 by action routines. 


PRI,SPC_PRI 
PR1IB,SPC_PRI 
AUTHPRI , SPC_PRI 


WSAUTH, SPC_WORKSET 
WSQUOTA, SPC_WORKSET 
WSEXTENT,SPC_WORKSET 
WSAUTHEXT, SPC_WORKSET 
DFWSCNT,SPC_WORKSET 
IMAGNAME ,SPC_ IMA 

MODE, SPC MODE 

PROC INDEX,SPC_PROC_INDE 
MASTER_PID.SPC~MASTER_PI 


~~ SPECIAL>/6 


i 
D 


Macro y0% 00 
«SRCISYSGETJPI.MAR;1 


define phdfid table 
save current location 


; GENERATE THE SIX TABLES USING THE COMMONLY DEFINED MACRO 


. 
6 
FRR RAAAAEA AERA EAA AEA ATA AAA AAAAARAAAAAAAAAAAARAAAAAAAEREES 
. 


MARA AAAAAALALAAASAALAAL ELAS A SESE SESE SESE TEETER EET CEES ETS 


restore location 


handle priority ... 
ess evaluations 
all of them 


; compute working set 
; «+-parameters 


find image name 

return the process’ mode 

3; create a process index 

3; return PID of master proc. 


compute number of entries 
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SS INFORMATION SYSTER SER 16-SEP-1984 02:08:35 VAX/VMS M v04-00 Pp 1 SY’ 
misery 9¢:9 41 f YS.SRCISYSGETJPI MAR: 1 ~ 1g; vO 


SYSGETJPI = GET 
v0e. 00 SYSGET JPI main program 


vw 


ROUTINE VALUE: 


SS$_NORMAL => normal completion 

SS$_ACCVIO => ITMLST can not be read by the calling access mode, 
or the return buffer or return length word can not 
be written by the cal) ing access noee 

ADPARAM => an invalid item identifier was Los + ed 

VLOGNAM => zero or greater than maximum Leng 


J oc 

JPI = GE 
13 rf: -SBTTL SYSGETJPI = GETJPI main program 
18 8c i** 
i ‘3 ¢ FUNCTIONAL DESCRIPTION: 
1 50 : This service p} Lows a@ process to receive information about ‘itself, or 
13 2) ; any process which it has the UIC privilege to examine. 
19 38 3 CALLING SEQUENCE: 
1 5: CALLS/CALLG 
3 56 5 
1 : 3 INPUTS: 

0 i 33 : EFNCAP) = anes of the event flag to set when all of the requested 
3 ata is valid. 

19 61 ; PIGADR(AP) = address of a Longuord containing the pryeeee ID of the 
0219 266 3 process for which the information is being requested 
19 563; PRCNAM(AP) = address of a string Seseriptor for the process name 

19 64 ; of the process for which the information is requested 
19 65 ; ITMLST(AP) = address of a List of item descriptors of the form: 
0 13 6 ; + + 
0 19 368 : {ITEM CODE! BUF. LENGTH ! 
0 13 376 ; ! BUFFER ADDRESS ! 
0219 es ; ! ADDRESS TO RETURN LENGTH ! 
8 ie : ¢eoeeecoeeceeooocoesococoececco + 
0 + 3f2 ; IOSB(AP) : edéress of a quadword I/0 status block to receive final 
3 status 
; 19 3r8 ; ASTADR(AP) = address of an AST routine to be called when all of the 
0219 578; requested data has been supplied. 
8 13 t4 4 3 ASTPRM(AP) = 32 bit ast parameter 
0 19 81 : IMPLICIT INPUTS: 
0 19 $ : none 
9 13 5 : OUTPUTS: 
19 $ : none 
19 ; : IMPLICIT OUTPUTS: 
19 9 : none 
19 92 ; 
19 93 ; 
19 94 ; 
19 95 ; 
19 96 ; 
19 97 ; 
+ 4 3 
13 ; 


SOoooooooooooooo 


SOOONOUS WIN 


$$_B 
$$_1 


oa 
oOo 


process name string 
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SYSGETJPI - GET JOB PROCESS INFORMATION SYSTER SER 16-SEP-1984 02:08:35 VAX/VMS Macro v04-00 P 13 
ve 000 SYSGETJPI = GETJPI main program mii PAs EM AMS TT Ta OTT Te 
} 60¢ ; SSS$_NONEXPR => Roney Tetent/soteted process or invalid process ID 
3 s e 
1 3 SS$_NOPRIV => calling process goes not have privilege to get information 
! eRe ; about the specified process. 
19 $06 > SIDE EFFECTS: 
1 6 8 : none 
es a 
0000000 ol) -PSECT YEXEPAGED ; only entry mask in this program section 
OFFC § 818 -ENTRY EXESGETJPI,*M<R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11> 
0214" 31 3 ele BRW EXE_GETJPI > transfer to real procedure 
0000 12 o18 -PSECT YFSSSYSGETJPI oa 
19 o18 EXE_GETJPI: 
5E DB AE ODE 19 61 MOVAL LOCAL_SPACE(SP),SP ; allocate local space on stack 
FC_AD Be 1D 620 CLRL FLAGSTFP) ; reset the flags ongword 
0769 0 ! 621 BSBW owns ; get PID/PCB address of desired process 
7250 «2&9 3 ? § BLBC RO,15$ ; exit if invalid process specified 
8 2 e ¢ 3 Check for, and clear possible 10S8 
51 14 AC 00 8 a & § : MOVL baat ote ; get IOSB address 
0B 1 A 6 8 $ 3; branch if none 
O022C 628 IFWRT #8,(R1),29$ 3 check access to it 
0066 31 0 é 629 BRW 30$ ; ACCVIO 
61 7C 8 $3 ° , 298: CLRQ (R1) ; clear I0SB 
0 37 o3s : Check for, and clear event flag 
53. 04 AC QA 6 37 634 38: MOVZBL EFN(AP),R3 3; get event flag number 
00000000'EF 16 0 38 639 JSB SCHSCLREF : clear this event flag 
54 50 €9 a e $ 4$: BLBC RO,15$ 3 and return on errors. 
ste rt > Validate AST, if present. Note R4 still has our PCB address, and R9 
red 273 3; has the PCB address of the process we want information from. 
18 AC 05 44 641° TSTL ASTADR(AP) 
08 1 47 yet BEQL 3 no AST to check. 
38 ay 2 res ez ite Cee AS TENT CS 3; is quota exceeded? 
3 nope 
OOCF 4 of 93? BRW 5$ 3 wets exceeded - return error 
51 $29 ; R10 is used to count the items that are in the other process's address 
51 908 3 space. The accumulated size of the user buffers is kept track o 
3] 649 ; on top of the stack. DIRCNT(FP) counts the number of PHD cells that 
} 629 3 were successfully fetched from another processes’ header. 
SA D4 636 Ss: CLRL R10 3 no items yet 
00 DD 65 PUSHL #0 3 no accumulated size either 
F8 AD D4 ; 028 : CLRL DIRCNT(FP) : no fetched items yet 
636 : Loop Fhrough the item descriptor blocks, validating the requested item 
5 657 ; identifiers and moving accessible items. A zero item identifier terminates 


D.15 
S_ INFORMATION SYSTEM SER 16- 


SYSGETJPI - GET JOB PROCES SEP-1984 02:08:35 VAX/VMS Macro v04-00 Page 14 SY 
$02 o500 SYSGETJPI = GETJPI main program ~$Eb=138% 8g: 98:23 YOYS SRCISYSCETIPI_MAR: 1 ° (4) ve 
f i 3 the List. 
6 oO 
55 10 aC 00 66 MOVL ITMLST(AP) ,R5 3; get item descriptor List address 
5 66¢ at IFRD = #4, (RS) , 108 : check first longword readable 
0086 «(31 663 BRW 30$ 
55 65 00 665 7$ MOVL (R5),R5 i; get pointer to next chained item List 
fe. 3 68 208 BRB 6$ 3 process it 
SA bes 10 
6 5 6A MOVZWL (R5)+,R 3 get buffer size 
2§ B3 9p £55 MOVZWL Ra} eek ; get tem identifier 
g 671 BEQL 49$ 3; done if zero, take normal exit 
FFFF 8F 3 f ore sree a) Out Lae ; is it a chained item List 
79 = 674 IFRD #12,(R5),11$ ; check rest of this descriptor ... 
0099 7F 675 BRW 30$ 3; «+. plus first longword of next one 
57 5 Se o78 118: MOVa (R5)+,R7 ; get buffer address and return address 
1 8 67 PUSHL Ri ; save R1 across accessibility check 
50 7 0287 678 MOVL R7,RO ; buffer address to RO 
51 29 8 8A 679 MOVL +, ad 3; and size to R1 
5 8D 680 CLRL R ; PROBE will use PSL<PRVMOD> 
00000000" EF O28F 681 JSB EXESPROBEW 3 check write we igewendy ae of buffer 
1 0295 O86 POPL 1 3; restore R1 for use by CHECKITEM 
3¢ g 0298 683 15$: BLBC RO,31$ 3; return error if inaccessible 
5 33 8 9B 684 PUSHL ; save RS from action routines 
gee 0 9D eH BSBW CHECKITEM ; validate identifier and get item info. 
3 28 E9 rN 686 BLBC ‘ : invalid item if error 
00000000 'EF 9 01 A 687 CMPL R9, SCHSGL_CURPCB ; is this for current process? 
a. we AA 688 BNEQ > branch if not 
SEFC AD 01 €1 O2AC 689 BBC #JP1_V_NULLSWAP, FLAGS (FPS ,20 
, 4 oay : branch if it’s current ‘full’ process 
4 24 CASE a, one ; the current process is null or swap 
0281 694 45$,-  ; CTL 
058} 898 os 
02B1 $39 O$.- ; PCBFLD 
By 899 mae 3a 
; 700 >B,#1 
C 7 § 16$: CASE Re <- ; it isn't the current process 
cs 7 45§,- ; ADR 
C 704 18$,- a CTL 
C 705 a ; PCB 
C 7 $ $,- ; PHD 
C 7 a 3; PCBFLD 
C 7 8 $.- 3; PHDFLD 
; a >B,#1 
5E 11 D \ 49$: BRB 50$ ; HELPER BRANCHES 
O06. 3] D 7135 31$: BRW ener 
48 1 DA 714 41§: BRW 40 
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v04- SYSGETJPI = GETJP1 main program SEP=1984 05:55:41 (USYS.SRCISYSGETJP1.MAR;1 (4) 
DD 15 
18 24 a9 12 «€1 D 1 17$: BBC #PCBSV_PHDRES ,PCBSL_STS(R9),18$ ; is the header resident? 
E 1 ; RO returned from MOVEPHD Can be th fol Loying: 
E 13 ; SS$_ACCVIO = routine MOVEIT couldn't stuff RETLEN 
E 1 ; SSS_NONEXPR = got into MOVEPHD and DELPEN was set 
E if 9 ; po NORAAL - everything fine - got the data 
E ; 0 = got into MOVEPHD and PHD had gone away - get with sKAST 
03 30 2 7 : 6sBw VEPHD ; must be, go get the data 
1 E E 7? BLBS RO,102$ 3; got it! count it. 
oc 1) EB 724 CMPL RO, #SS$_ACCVIO ; was the retlen bad? 
fem EB 725 BEQL : at means it was 
38 FC AD gi E ED f $ BBS #JP1_V_NULLSWAP, FLAGS (FP) ,45 ;. couldn't get Null/Swap? oh oh. 
0 oD F TSTL R ; mow check for PHD no longer RES 
oe FA 7 8 BEQL 19$ ; EQL means PHD no Longer RES 
46 «11 i f 3 BRB GRET ; whatever the error, go return it 
FB AD 06 F 731 102$: INCL DIRCNT(FP) ; successful at getting it directly 
0s 11 4 4 if § BRB 19$ 
28 FC AD «(01 «6 EO «(O2FD) «S734 18S: ~=— BBS #JP1_V_NULLSWAP,FLAGS(FP) ,45$ 
os 735 ; Null and Swapper don't have CTL reg. 
A 06 0 7 § 19$: INCL R10 ; count up one more for sKAST Later. 
04 AE 38 $$ $08 f 5 spots R6,4(SP) ; Add in size of user's buffer 
18 FC AD QO} E0 30h 739 21$: BBS #JPI_V_NULLSWAP ,FLAGS(FP) ,45$ 
30F 740 3; Null and Swapper don't have a JIB 
0379 30 OF 741 30s: BSBW MOVEIT 3 move item to user 
55 a \g rg 5$: POPL 3; restore R 
26 50 3 8 1 74 BLBC RO,GRET 3; return Length not writeable 
FFF 1 0318 oe BRw 10$ ; back for next descriptor 
50 OC 3C€ O31B8 746 398: MOVZWL #SS$_ACCVIO,RO ; access violation 
1E 11 0 if re BRB GRET 
50 1c 3 ° 749 35$: MOVZWL #SS$_EXQUOTA,RO 3; AST quota exceeded 
19 «+11 ; £39 BRB GRET 
50 14 3¢ 03 : 036 40$: MOVZWL #SS$_BADPARAM,RO ; illegal item or request 
14 11 : P37 BRB GRET 
54 08 AD be A 755 45$: MOVAL SCRATCH(FP),R4 ; make a 16-byte zeroed buffer 
64 C 7 § CLRQ (R4) 
08 AS =O7C 7 CLRQ gia) 
DA 11 4 8 BRB 0$ i se. through common subroutine 
; te = 760 50$: MOVZWL #SS$_NORMAL 0 3 normal return 
5A FBAD O01 8 761 CMPL DIRCRT(FP),R1 3 any items we couldn't get? 
6— 12 ; 166 BNEQ RESCAN ; if so, go obtain them. 
; Pee : Set the event flag, post the completion status, and declare a completion AST 
50 oD £06 GRET: PUSHL RO 3 save completion status 
54 (0 , oe. 4 76 MOVL SCHSGL_CURPCB,R4 ; get PCB address 
1 60A4 OD 4 768 MOVL PCBSL_PID(R4) ,R1 3 get process's PID 
52. D4 48 a4 CLRL @ 3 set null priority increment 
53 4 AC 00 40 770 MOVL EFNCAP) ,R3 3 get event flag number to set 
0 ‘EF «=8©16 0351=— 771 JSB SCHSPOSTEF : Set the event flag 


sh" i 
fied Be 
55 arr i 


54 54 02 16 


i 
: 


i 


NM—OOONOUS UT 


F 15 
SP1'main program  ‘S-sEp-198e O8:58:41 EevSvsaclsvscevsei-nan;1 "9° 8, 


MOVL J sOtars et osdcess of 10S8 
BEQL ranch if none 
IFNOWRT #8,(R1),20$8 

MOVL 


MOVL ASTADRCAP) RS et address of AST routine 
BEQL $ ranch if none specified 
ROVESL R4 


; get PS 

or eka -nevoee #PSLSS_PRVAOB AGRE ; extract previous mode 
DCLAST_S (R5)7ASTPRM(AP).R4~  ; queue the completion AST 

POPL RO i; restore completion status 

3 and return. 


—_ 
oO 
sad 


™m 
oO 
ww 


: store completion status 


w 
Oo 
wn 
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¢ 5 -SBTTL RESCAN = Rescan item List creating List of items in process 


SYSGETJPI »¢ 
voesb00 RES 


7 


E 
C 


FUNCTIONAL DESCRIPTION: 


Routine to obtain information that is contained in another process's 
virtual address space. This is accomplished by first creat ng a list 
of items that are to be obtained from the other process. An AST is 
then queued to the erocese to execute a routine in this service that 
copies the desired items to a buffer in non-paged pool. The routine 
then queues another AST back to the poquest 9 process to execute 
another routine in this service to copy the items from the system 
buffer to the requester's buffers. 


CALLING SEQUENCE: 
Branch 
INPUTS: 
R10 = number of items that are in other process's address space 
R11 = PID of other process 
(SP) = accumulated size of user buffers. A buffer of this size 
will be allocated from nonpaged pool to hold data from 
the target process. 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
An extended AST control block is allocated and filled-in with the 
usual AST parameters with the extension senreratre a list o 
item descriptors. A data buffer is also allocated to contain the 
item data. 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 


lots 


~ 
OOOCCOOCOCOCOCCOCOCOCSOCOCOOOCOCOOOOOOOOOOoOOoOO z 

A AAAI AANA AI AAI AAAI AI AAAI AIA AAI AA AAI 
SM QOOCOTOOOCOOCOCOOWOOVOOOONO 


Bee Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Sse Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Ge Ge 
+ 


-ENABLE LOCAL_BLOCK 


BBC #PCBSV_SSRWAIT,PCBSL_STS(R4),7$ ; do not wait if set 
ENBINT ; allow interrupts again 
MOVZWL #SS$_INSFMEM,RO ; indicate no pool left 

BRB GRET 3; and join common exit path 


OA 24 AG OA €E1 
50 0124 8F 3¢ 
AA 


wn 
ed 
ee 


o 
ad 


; There is not enough nonpaged pool. The process must be placed into resource 
3 wait until pool becomes available. 


AANA AA AIHA APOPIPINIPININNPONUND 


OOO NA NEW 9 ODA EWN 9 OD NAME WIN 2 OOD NAME WI 9 OD NAME WO OONO 


ono 
Po 


WIWWIWAI_A AAA AAA AW AWAW 
~© 00 Od Co C9 GD 0D Cd CD Cd CD CD CD 
- RRRSS PDP PPPS SVIVIVSUSVSUSUSUSVSUSTSUSUSUSUSUSTSU SUSI SUSI SUSUSUSUSIOSIOSIOS ISIS ISIS IOS ISIS 
€00909.00.0909 09 Cd G9 09 09 09 09 09 G9 G9 CD C9 0d Cd Cd Od OD 09 09 CO GD C9 OD OD CD OD GD OD OD CD 0D C9 C9. 0909 III NII 


r~ 


50 =e 


7$: MOVPSL RO 3; get current PSL 


si" 


6E 


50 


54 yore 000°EF 
ve 


1 

6 
ete 
C9 50 


souscors "tt 
A9 50 
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RESCAN = Rescan 


m—- M——VHEeOOoo 


36 
hi 


AA 
AC 
AC 
AC 
AC 
AC 
A 


PONTO OF FAO ONLI FBP LMOVWWANO DL RHROOMOOOCWOCOCS & two 


EPPA) 4 4 BOSCO TBM AMMMMOVCVTVCVTCITAOO 


4 
4 
4 
4 
4 
4 
4 
4 
4 
5 
5 
P] 
5 
5 
5 
5 
6 
6 
6 
6 
6 
6 
6 
6 
? 
? 
? 
? 
? 
7 
? 
? 
: 
9 


AMOQODNAUE WIN OS OD NAMEN $9 OD NAME WIN O ONAN 0 ODNOU ES ito 


H15 
Trem List creating List S-SEP-198¢ 08:5 


#PSLSM_IPL,RO, (SP) 3 
#RSNS_RPDYNMEM, RO ; 
G*SCHSRWAIT ; 
R6,R1 : 
8$ 3 
RESCAN: 

; Allocate an extended AST block 

: SCHSGL_CURPCB,R4 


WACB_C~IDESC,R10,R1 
8 LCILIST. RI 


#AC 

(SP 

Ri 
G“EXESBUFFRQUOTA 
Rg 6$ 

126 

G* 


~o 
Aad 


$ 
 : Yenemmentoneed 
: RO,5 


: Fill-in the standard AST parameters and 
; ENBINT 
MOVL 


73 AX/VMS Macro Vv04-00 Page 
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; wait at IPL 0 to allow ASTs 
; ee. for some pool to be given back 


quota check will be repeated 


when process executes again 


; pool available. repeat quota check 


get current PCB address 

compute size of item descriptors 
plus header 

plus buffer size 

Save request size for later storage 
check buffer quota 
quit if not enough 
elevate IPL to SYN 
now allocate the chunk of pest 
get out if no pool available 


fret? 


header information 


; allow scheduling again 
; get JIB address 


; sé juss buffer quota 
; PI 


R2, 
R6, ACB$W_SIZE(R11) : 
#0YNSC_ACB,ACBSB_TYPE(R11) 


R1 ; 
#PSLSV_PRVMOD,#PSL$S_PRVMO 
#<1@ACBSV KAST>,R1 ,ACBSB_R 


MOVEFU,ACBSL_KAST(R11) 
ASTADR(AP) ,ACBSL_AST (R11) 


#SS$_EXQUOTA,RO 
PCBSO_ASTCNT(R4) 


5$ 
PCBSW_ASTCNT(R4) 
#ACB$V_QUOTA, ACBSB 
ASTPRMTAP) ,ACBSL_AS 
(AP) ,ACB_L 
APS AC 
PCBSL_PIO(R4 
CTL$GC_PHD,R 
PHDSL_TMGCNT(R3) 
R10,ACB_L_COUNT( ; 
ACB’L_DADBR(R11) : 


1 
1) ; and parameter 

; e 
; address of 


of target process 


; save address of AST block 


save block size for deallocation 
3 og) Biase type 


et 
Q R1,R1 ; get requester'’s mode 
MOD(RI1)s°and pu 


3; and put into block 
3 special kernel address 
3; return ast address 
skip quota check if none 


; assume exceede 
; any left 
; hop, skip to error return 


; subtract from quota 


),10$ ; and record that fact in ACB 


fn to set on return 
ssible iosb 
11) ; our PI 


t address of process header 
NT(R11) ; sequence number of this image 
item count 
no data buffer yet 
allocated but location not recorded 


sha" 


2 6M 
5687 
51887 

46 

FFFF BF = 51 

7E 89 
10F 
ne 
oe 

55 AA BF 

D455 52 

5A 

15 

6— 56 
10 
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8H 
co 
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85 

14 

02 
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om 
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Loop through the List, copying the item descri 
process's address space to the extended AST block. 


The item descriptor List will look like: 


Few scm mene ewe nse cmseeecs oases eoeeae 


! item code ! buffer length ! 


pee snows e aac Seeman sre ce neo oes ee + 


! user buffer address ! 


jeneaaneceenesenesasesesasensunsant 


! address to return Length ! 


BR ew ananr ao smaenerenscr emer seme r ewer + 


Se Ge Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Ge Sete Se 


Macro V04-00 
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ptors for items in the 


When the item List comes back from the kernel ASTs, the ‘tem code field 
is overwritten with the actual length of the source data for each item. 
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MOVAL ACB_L_ILIST(R11),R8 ; get address of item descriptor List 
MOVL ITMCSTCAP) ,R7 3 get address of item specifier List 
12$: IFNORD #4,(R7),30$ 3; check first longword still readable 
15$: MOVZWL (R7)+,R6 ; get user buffer size 
MOVZWL (R7)+,R1 ; get item identifier 
BEQL 498 ; if zero, we're done with List. 
IFNORD #12,(R7),30$ 3; check still readable 
ap Rj ,AJPIS_CHAIN ; is it a chained item List 
mMOVQ (R7)+,=(SP) ; get user buffer and length addresses 
BSBW CHECKITEM 3; get structure type into R2 
BLBC RO -<8s 3; make sure argument List has not changed 
MOVL R3,RO 3; save item length 
mMOVa (SP)+,R3 ; get user buffer and length addresses 
MOVZBL #<<l@JPISC_PCBTYPE>!- ; create mask of types in eyeyen space 
<1QJPISC_PCBFLDTYPE>!- ; plus address type, which is 
<1aJPISC-JIBTYPE>!- |; returned as zero if not for caller 
<19JP1$C“ADRTYPE>> RS ; 
BBS R2,R5,15$ 3; branch if we already got it 
DECL R16 3; decrement item counter 
BLSS 208 3; error if count goes negative 
SUBL2 RB (SP) ; subtract user buffer size from input 
BLSS 208 : error if result goes negative 
MOV R6, (RB) + 3; copy user buffer size 
18$: MOVW R1,(R8)+ 3; copy item identifier 
mMOva R3,(R8)+ 3; copy user buffer and Length address 
BRB 15 3; and loop through till done. 
19$ MOVL (R7)+,R7 3; pointer to next item List 
BRB 128 3 go process it 


20$:  PUSHL $c 4SS$_BADPARAM 
BRB 5$ 


305: PUSHL $pgos-ACCW1O 
$: BRw 00$ 
4 3; count should be zero 


0$: TSTL R10 


; set bad parameters failure 


3; set access violation failure 


<y 
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vou 000 RESCAN = Rescan ida List creating List ~$FE= 1382 4:9 741 SYS.SRCISYSGE OPT RAR: 1 sere 2, 


Te AA BNEQ 0$ : error if it is not. 
BE 9 AC TSTL P)+ ; so should size be zero 
gf 4A BNEQ 3; error if it is not. 
1C AB 8 OD re MOVL R8,ACB_L_DADDR(R11) 3; fill in buffer address 
4B4 3; The AST is mee to the destination process unless it has delete or 
rf 3; suspend pending set, or is currently suspended. 
4B4 S0$:  SETIPL 1208 ; raise IPL to synch, lock code 
55 22 0 488 8 MOVL 3 set address of AST block 
4 OCA ¢ 48 0 MOVZWL acest PID(RS) RG : PIX of destination process 
54 OOO'FF44 DO O4C - MOVL  a@SCHSGL PCBYECERG] WRG : get PCB address 
CA 60 AS OD CMP PCBSL_PID(R4) ,ACBSL_PID(RS) ; see if PIDs the same 
w. ¥ BNEQ $ ; and exit if not 
54 24 AG 1 E BBS #PCBSV_DELPEN,PCBSL_STS(R4), O$ ; or if delete pending 
56 24 AG E BBS #PCBSV_SUSPEN, PCBSL_STS(R4),90$ ; or if suspend pending 
C aa 09 8} CMPW 86s: #SCHSC_SUSP,, PCBSW_STATE(R4) 
oy BEQL H process suspended, error exit 
2C A4 OA Bt CMPW #SCHSC_SUSPO,PCBSW_STATE(R4) 
4A 1 BEQL 3_or suspended out of memory 
2C AG 09 Bt CMP #SCHSC_MWAIT,PCBSW_STATE(R4) 
4 1 BEQL $ ; or an indeterminately long wait state 
52 04 00 MOVL #PRIS$_TICOM,R2 . gixe 4 big priority increment 
AE FC AD O11 E0 BBS #JP1_9 NULLSWAP,FLAGS(FPS, 0O$ ; don’t ever queue it to these! 
OO0000000'EF 16 Js8 SCHSGAST 3 queue AST to other process 


If process is in compute state and at a lower priority than the requesting 
process, boost its current priority to the requesting process's current 
priority. (Required because event reporting won't normally boost a COM 
state process's priority). 
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2C A4 49 a} coy #SCHSC_COM,PCBSW_STATE(R4) ; process in compute state? 
2C AG 90 8) 8 cee #SCHSC_COMO,PCBSW_STATE (R4) ; or compute out of memory 
53 00000000'EF 06 60$: MOVL SCHSGL_CURPCB,R3 : get requestor's PCB address 
50 OB A3 MOVB PCB$B_PRI(R3),RO i get requestor's current priority 
0B aS «50 «91 «(051 CMPB RO PCBSB_PRI(R4) ; Other process have a higher priority? 
98 if 1 BGEQU 70 : yes - don't boost pr or ity 
50 1 9 1 CMPB #16,R0 3; will boost be into realtime or ior ty? 
06 #1A 1 a BGTRU 70$ : if GTRU yes - don't boost priority 
eet ll 16 18 1 JSB SCHSCHSEP 3; boost other process's priority 
50 a. = § 70$: MOVZWL #SS$_NORMAL ,RO ; so far, so good. 
g SETIPL @# 8 
04 ; : RET 3 
A $ : Error recovery when the process we want to send the AST to has vanished, 
. 4 ; has delete pending, or is suspended; we must release both blocks 
7E 088 a 3¢ A 80S: MOVZWL #SS$_NONEXPR, ~(SP) ; non-existent process 
5 ' | ; BRB 100$ 
7E O3A4 BF 3C 1 ! § 90$: MOVZWL #SS$_SUSPENDED,-(SP) 3: process is suspended 
AB OC $ 1004 100$: MOVZWL ACBS$W_SIZE(R11),R0 : need to restore BYTCNT quota 
54 9 "GF dD A 1005 MOVL G*SCHSGL_CURPCB,R4 3; to caller of $GETJPI 
5 (46 41 1006 MOVL  PCBSL_JIB(R4).R4 ; get JIB address 
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SYSGETJPI - GET JOB PROCESS INFORMATION SYSTEM SER 16-SEP-1984 02:08:35 VAX/VMS Macro v04-00 Pa 1 
yon 800 RESCAN = Rescan in List creating List -$ pa} 984 $6 :98:23 SYS.SRCISYSGETJPI.MAR; 1 te @) 
0 Al C 46 1007 ADDL2 RO,JIBSL_BYTCNT(R1) ; and give back quota 
03 0B AB ; £9 4A BBC satay QOOTA case _rnoo htt). 1058 ; also ASTCNT if that 
38 a F 1 INCW PCBSW_ASTCNT(RG) ; was subtracted before 
30 b é 1 105$: MOVL R “BO ; get address of AST block 
00000000 ' GF 101 JS8 G*EXESDEANONPAGED ; deallocate the block 
0 8ED B 101 POPL R 3 restore status 
‘ 101 SETIPL # 3; restore IPL to allow page faults 
O8E8 BF 0 } 61 1 13 CMPW RO ,#SS$_NONEXPR ; is error nonexistent process? 
66 101 BEQL ©: 130$ + branch if yes 
FOD 1 1 1 110$: BRW GRET 4 
56B 101 
2 int 
1020 ; The preceding code must raise IPL to synchronize access to process database, 
56B 1021 ; but since it is paged it must be locked in memory. The usage of the SETIPL 
4 ! § 3 macro above, both raises IPL and faults the code into memory. 
568 1024 1208 
08 0568 1025 -BYTE be SYNCH 3 end of ocked code region 
56C 1 § ASSUME <.=-5$> LE 512 3; only 512 bytes can be Locked 
ef ! ASSUME <.-50$> LE 512 : only 512 bytes can be locked 
56C 19 § ; If process has Giseppeored (has already been deleted or is in a delete 
56C 1030 ; pending state) in the interval between selection and queuing the AST, 
56C 1031 ; and the initial call indicated wild card mode, then go peck to the 
56C 1 § 3; beginning of the service. Note that wild card mode is indicated by a 
056C 1 3 negative number eer a -1) in the upper word of the PID argument in 
3; the caller's argument List. 
die #8 caller's Sromest 5 
51 08 AC if 828 1 § 130$: MOVL PIDADR(AP) ,R1 3; Get PIDADR from argument List 
F 1 5 1 BEQL 110$ : If not there, can't be wild card mode 
572 1038 IFNORD #2 gtBta 1908 ; Don't repeat if cannot read parameter 
02 a1 B5 0579 1039 TSTw © 2¢R1) : Look at wild card indicator 
A iS 57C 1040 BGEQ 110$ 3; Must be negative for wild card mode 
5E D 4 He 1041 MOVL FP,SP ; Restore SP to its value on entry 
FA7E’ 31 bee, } +g BRW EXESGETUPI + 2 ; and go back to the beginning. 
0364 1044 - DISABLE LOCAL_BLOCK 
584 1045 
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date item identifier ~SEP=1984 SYS.SRCISYSGETJPI MAR; 1 
«SBTTL CHECKITEM = Validate item identifier 


SYSGETJPI = GET 
voeeb00 CHECK] 


aa 
+ 


FUNCTIONAL DESCRIPTION: 


Routine to validate item identifier and return information 
about the item. 


CALLING SEQUENCE: 
JSB/BSB 
INPUTS: 


Ri = item identifier 
R9 = Target PCB address 


IMPLICIT INPUTS: 


none 
OUTPUTS: 
R1 = item identifier 
R2 = structure number 
R35 = item length 
R4 = item address (actual address for PCB data, assumes current process 
for other data) < if we're getting PHD data directly, it will 
be the PHD offset, not the address > 
R5 = item type code 


IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


RO low bit clear -> successful return 
RO Low bit set -> invalid item identifier 


SIDE EFFECTS: 
none 
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voe~600 


0 
on td 
if 
06 52 
1A 
FA64 CF42 33 
1 
54 
0088 


54s FAGF cree 
54S 
52 04 A4 


00000000’ EF 
54 0000000 
55 FB 


uw 
"Oo 


59 

07 

53 FBD4 CF43 
19 

59 

54 00009000°9F 
53 FBB9 ces 
55 83 
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PR Tia pet ON SYSTEM SER 19-3401 


tem identifier -SEP-1 
CHECKITEM: 
CLR R 
MOVZBL R at} 
EXTZV #8,#8,R1,R2 
Bec, «798 
CMP R #JPISC_MAXSTRUC 
BGTRU § 
CMPB R3,,MAXCOUNT-1CR2] 
BGTRU 79% 
CLRL RG 
CASE R2,<- 
+ 3 
$,- 3 
+ 3 
00$,- : 
110$- 3 
>B,#1 
79$: 
BRW 80$ 
10$: 


MOVAL ADRTBLER3],R4 
ADDL R3,R4 

MOVZBL 4(R4),R2 

MOVL 4,R 

MOVZBL #VALUE,RS 
BRW 70$ 


20$: 
MOVL  R9,R4 
MOVAL PCBTBL,RS 
BRB 40$ 
30$: 
CMPL R9, SCHSGL_CURPCB 
BNEQ 35§ 
MOVL $a@#CTLSGL_PHD.R4 
35$:  MOVAL PHDTBL,RS 
40$: 
MULL &5,R 
ADDL RS5.R 
MOVZWL (R$)+,R5 
BRB 60$ 
100$: 
MOVL  R9LRS 
MULL &#7.R3 
MOVAB PCBFLDTBLCR3].R5 
she BRB 120$ 
CMPL sR $cHSGL_CURPCE 
BNEQ 115 
MOVL  a@#CTLSGL_PHD,R4 
115$: MULL 4#7,R 
ee MOVAB PHOFLOTBLCR3).R3 


MOVZWL = (R3)+,R5 


PCBFLD 
PHDFLD 


Rs Be eG te a TO 


assume error 
get item number 

get structure number 

error if structure number zero 
structure number valid? 

error if not 

check Fi item values (1 origin) 
error if illegal item number 
assume zero base 

case on structure base 


CASE out of bounds - return 


item is an address 

address is table address 
base+indexvalue*5 

get structure type code 

size of data is four bytes 
item is a value 

all done 

item is from PCB 

get back PCB address 

get address of PCB item table 
continue 

item is from process header 
is the target process our own? 


NEQ means t's not, don't touch CTL 


get process header address 
get address of PHD item table 


each element is 5 bytes lon 
compute address in item table 
get offset into data structure 


item is from PCBFLD 

get back PCB address 

each element is 7 bytes long 
get gceress of PCBFLD item 
continue 

item is from PHDFLD 

is the target process our own? 
NEQ means not, don't touch CTL 
get process header eserens 
each element is bytes ong 
get address of PHDFLD item 


get offset into data structure 
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- Validate item identifier -SEP- 253: . «MAR; 
von 808 CHEEKITEM © Volidare stom daeneii Seen 1abe BSiseicy LeNC eS acre Oe 00 est ~ 
EB AD 83 3C $ 1} MOVZWL (R3)+,BITDEF (FP) 3 save the BITSIZ and BITPOS 
OE 11 11 BRB 60$ 3 
1155 50$: ; item is in control region 
53 7 C64 1154 MULL #7,R3 3; compute index into item table 
Bs 1155 CLRL RG 3 assume zero bese value 
53 FOES CF4 3 11 § MOVAB CTL TOLCRSI.R5 ; get address of item information 
11 MOVL (R5)+,R 3 get item address 
52. 02 A 11 8 60$ MOVZBL 2(R3),R : fetch actual structure type 
2 1 1 CMPB Ss #JPISC_JIBTYPE.R2 : is it the J1e? 
116 BNEQ 65$ ; br if not 
54 080 D 639 118 VL PESS) J IBCRP) WAS ; else get address of JIB 
4 § 635E 1162 65$ ADDL i ; form complete address 
5 8 A 0641 116 MOVZBL (R$)+,R5 i get item type code 
5 0460 «(1 «(0644 (1164 CMPL  #DSTRING,RS : is it a string descriptor? 
6 is 647 1165 BNEQ 67$ ; NEQ means nope 
FC AD 4 s. 649 1196 BISL2 #<1aJP1_V_STRDSC>, FLAGS(FP) 3 it's special, flag it 
FC ap 04 ‘ eek 1198 67$: BICL2 Fey evE | .V_STRBSC> FLAGS CFP) ; not special, clear flag 
5 63 A 065 118 69$: MOVZBL (R3),R ; get item engeh 
5205s 0656 1170 CMP #JPISC_PCBFLDTYPE,R2 : is it a bit tield? 
OE 13 B82 1171 BEQL 3; EQL means it is 
52 06 91 0658 1106 CMPB #JPISC_PHDFLDTYPE ,R2 : is it s bit field? 
0@ 12 O65E 117 BNEQ 3; NEQ means it’s not a FLD at all 
OQOOOOO00'EF 59 D1 0660 1174 CMPL R9, SCHSGL_CURPCB 3; is the target process our own? 
¢ \ 667 1175 BNEQ ; NEQ means it's not 
0 1 0669 1126 90$: BSBB EXTFLOD 
50 D6 0668 1177 70$: INCL RO 3 set successful return 
05 066D 1178 80$: RSB 3 return to caller 
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SYSGETJPI 
voa=600 


me 
ea 
4 
wr 
-4 
o 


red) i} 9 -SBTTL EXTFLD = Extract a bitfield from a datum 
ese 11 g p++ 
6— 1185; 
ree: 1} ¢ ; FUNCTIONAL DESCRIPTION: 
ree: i § ; Routine to fetch bitfield data from within a data cell. 
66€ 1188 ; CALLING SEQUENCE: 
66E 1189 ; 
66E 1190; JSB/BSB 
ree: 13 3 
6— 11 3 INPUTS: 
66E 1193; 
O66E 1194 ; BITDEF(FP) = BITPOS/BITSIZ fields from item table 
Oeée 1132 3 R4 = address of cell containing data 
66E 1199 3 IMPLICIT INPUTS: 
066E 1198 ; 
Q066E 1199 ; none 
066E 1200 ; 
066E 1201 ; OUTPUTS: 
066E 1 0 ; 
Regs ! + 3 R4 = new address on stack where bit is saved 
66E 1205 ; IMPLICIT OUTPUTS: 
66E 1 6 3 
66E 1207 ; none 
066E 1208 ; 
066E 1209 ; ROUTINE VALUE: 
066E 1210 ; 
066E 1211 ; none 
066E 1 \¢ 3 
Q066E 1213 ; SIDE EFFECTS: 
066E 1214 ; 
Q066E 1215 ; none 
66E 1 18 ;-- 
66E 121 
66E 1218 EXTFLD: 
0c 3«6BB $34 1219 PUSHR #*M< ¢-3 3 get some room 
52 E8 AD 05 EF 67 1220 EXTZV #11,#5,BITDEF CFP) ,R2 ; get BITSIZ-1 
5 D6 of8 1221 INCL B ; make it BITSIZ 
53 €8 AD OB 2 EF 678 1 § EXTZV #0,#11,BITDEF(FP).R3 ; get BITPOS 
AD 52 EF 67E 1 EXTZV R3,R2 (RG) .BITDEF (FP) 3 get the bitfieid 
54° €8 AD ODE 684 1204 MOVAL BITDEF(FP)-R : point to it 
BA be 8 \s 5 POPR #*A<R2,R35> 3 restore the registers 
05 068A 1226 RSB 


an 


SIDE EFFECTS: 
Registers R1-R4 destroyed 
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Won e600 MOVEIT = Move data to Aen buffer aes 8g: of: 3? SYS.SRCJS gysG GETJP1.MAR;1 ” (6) 
$ 8 ] : -SBTTL MOVEIT = Move data to user's buffer 
gaa 153) 
: ; ! § 3 FUNCTIONAL DESCRIPTION: 
68B 1234 ; Move the requested data to user buffer. Zero fill to end of buffer. 
68B 1235 ; Return actual data length to user. Assumes user's buffer has 
? 4 ! g 3 been probed. 
688 1 8 3; CALLING SEQUENCE: 
688 1 3 
688 1240 ; JSB/BSB 
688 1241 ; 
688 1 ¢g 3; INPUTS: 
688 1243; 
pose 1246 ; R1 = item identifier 
68B 1245 ; R2 = data structure number 
0688 1 $ ; R35 = item length 
0688 1247 ; R4 = item ees 
pose 1 $3 : R5 = itemt code 
688 1249 ; R6 = user ta Length 
0688 1250 ; R7 = user buffer address 
68B 1251 ; R8 = address to return Length 
688 1 26 : R11 = PID of process to get data from 
0688 1253; 
688 1254 ; IMPLICIT INPUTS: 
688 1255 ; 
6868 1 2$ $ none 
688 1257; 
0688 1258 ; OUTPUTS: 
0688 1259; 
0688 1260 ; none 
068B 1261 ; 
688 1 6¢ 3 IMPLICIT OUTPUTS: 
688 1265 ; - 
6 1264 ; none: 
6 1265 ; 
0688 1 08 3; ROUTINE VALUE: 
068B 1267 ; 
688 1268 ; RO Low bit set -> success 
688 1 4 3 RO low bit clear => access violation on write of Length 
688 1270; 
163 
1378 ; 
1274 ; 
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502 e508 MOVEIT = Move data to a buffer =}382 88: oF: i? SYS.SR cj SYSGE JPI.MAR;1 = th 
$ 8 1376 MOVEIT: 
B 
688 : 4 3 
? ; ! 4s ; Call routine to check for special conditions 
688 1 ; 
QOOAO 30 0688 1 BSBW CHECK_SPC 
sae 
? : ! é ; Check for counted string, and find actual length if so. 
68E 1287 ° 
36 D1 $s 1 CMPL #CSTRING,RS :; is this pam string? 
8 12 $9 1 Hy BNEQ 10$ ; branch if n 
53 84 9A Be02 ! Y MOVZBL (R4)+,R3 i get length. ond skip length byte 
Beoe ! 3g : ; Check that process still exists. This assures that data address is good. 
50 5B 3C 0696 1994 10$:  MOVZUL R11,R0 : get Pasa ID index 
50  O0000000'FF40 DO 0699 1295 MOVL @SCHSGL_PCBV ECER RO],RO ; get o ad dress 
58 60A0 01 O6A1 1 36 CMPL PCBSL_PID(RO) ,R11 ; Same ? 
0¢ 13° O6AS 129 BEQL 15$ 3 Ay tty 
5 D4 QO6A7 1298 CLRL R3 3; else, zero "Sete size 
06A9 1299 ; 
06A9 13500 ; Move the data 
06A9 1301 ; 
28 BB 06A9 1306 15s: PUSHR #*M<R3,R5> ; save needed registers from move 
56 00 64 3 2C O06AB 130 MOVC5 ate (R45 ,#0,R6, (R7) 3 move data to user's buffer, zero fill 
28 BA 0681 1304 POPR <R3,R5> ; restore registers 
58 D5 0683 1305 TSTL ; did caller want return Length? 
11 13 0685 1306 BEQL 3; branch if not 
eet 1307 IFNOWRT #3. (88) 408 3 exit if word not writable 
56 53 D1 068D 1308 CMPL R3,R6 3; see how much was moved 
03 15 06C0 1309 BLEQ 208 ; use valid data length if it fit 
53 56 00 ote 1310 MOVL R6, ; else give him ‘too short’ buffer size 
68 53 B60 06C5 1311 gps: MOVW R3, (R8) ; return Length to user 
50 01 3C 06C8 131§ 0$: MOVZWL #55$_NORMAL RO ; set success code 
05 Rete 131 RSB 
50 OC 3C gece 1315 40S: MOVZWL #SS$_ACCVIO,RO ; couldn't stuff RETLEN cell 
05 O6CF 1316 RSB > return 
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von 00 MOVEPHD = Fetch data from other process’ ~$b= 1 382 §¢:3 741 (CSYS.SRCISYSGETJP1.MAR;1 me 2, | 
op : ! -SBTTL MOVEPHD = Fetch data from other process’ PHD 
D ! 34+ 
D ; 
rt } 3 FUNCTIONAL DESCRIPTION: 
600 1324; Disable interrupts and fetch the data from the other process’ header. 
600 1325; Always get WSLIST in case it'll be needed. Make R4 point to the 
a : § 3 saved data, and call EXTFLD if it's a PHDFLDTYPE item. 
600 1 8 ; CALLING SEQUENCE: 
600 1 : | 
600 1350 ; JSB/BSB 
600 1331 ; 
600 1 § ; INPUTS: 
600 1 3 
600 1334 ; R1 = item identifier 
600 1335 ; a = data structure number 
600 1 $ : RS = item Length 
0600 1 3 R4 = offset into other process’ PHD 
0600 1 38 ; RS = item type code 
0600 1339 ; R6 = user buffer Length 
0600 1340 ; R? = user buffer address 
0600 1341 ; R8 = address to return length 
0600 1 4g 3 R11 = PID of process to get data from | 
0600 1345 ; 
6D0 1344 ; IMPLICIT INPUTS: | 
600 1345 ; 
0600 1346 ; none 
06D0 1347 ; 
06D0 1348 ; OUTPUTS: 
06D0 1349 ; 
0600 1350 ; none 
6D0 1351 ; 
600 1 26 3; IMPLICIT OUTPUTS:~ 
600 13535; 
600 1354 ; none 
06D0 1355 ; 
dep : 2$ 3; ROUTINE VALUE: 
600 1 28 ; SS$_ACCVIO = routine MOVEIT couldn't stuff RETLEN 
0600 1359 ; SS$_NONEXPR = got into MOVEPHD and DELPEN was set 
600 1360 ; S$_NORMAL = everything fine - got the data 
rt ! e 3 = got into MOVEPHD and PHD had gone away - get with sKAST 
600 1 $8 3; SIDE EFFECTS: 
600 1364 ; 
600 1365 ; Registers R1-R4 destroyed 
600 1 $6 ‘- 
6D 136 
600 1 28 MOVEPHD : 
7E 83=55 43 6d0 1 § R5,-(SP) ; save RS and R6 
000006D 603 1 LOCK_BEGIN =, 
603 137 DSBINT LOCK_IPL 3; raise IPL to Synch and lock code 
3 8 45 60D 137 MOVZWL RII, 3 get process ID index 
50  00000000'FF4 D 6—0 137 MOVL @SCHSGL_PCBVECCROJ,RO ; get PCB address 
5B 60A0 01 O6€8 1574 CMPL PCBSL_PID(RO) ,R11 ; Same PID? 
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CESS INFORMATION SYSTEM SER 1 mi tah 9 


ch data from other process’ 


30$: BRw 
85$: MOVZWL 
BRB 
CLRL 
ENBINT 
MOVQ 
RSB 
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MAR; 1 


Page 29 
. (7) 


90$ same 
#PCBSV_PHDRES ,PCBSL $1$(R0) . 908 ; if the PHD isn't there, exit 


#PCBSV~DELP N-PCBSL_STS(R 


PHOTEMP(FP) ,RG 
#JP1SC_PHOFLOTYPE .R2 
30$ 


EXTFLD 
MOVEIT 


#5$$_NONEXPR,RO 
95$ 


RO 
(SP)+,R5 


8 
ip et the header addre 


save the data from the 
allow interrupts again 
point to the saved data 
restore R5 and R6 


process going away 


s 
; save the WSLIST just in case 
PHD offset + PHD address => R6 


not 
extract out the bitfield 
now ‘'fetch’’ the data the normal way 


; PHD not resident anymore 


: if process will go away, exit 


; clean off the stack, restore R5,R6 
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-SBTTL SPECIAL = Handle special conditions 


SYSGETJPI = GET 
voe-600 SPECIA 


~o 


+e 
FUNCTIONAL DESCRIPTION: 


These routines handle data items which must be transformed 
before Lined are returned to the user. Generally, some 
transformation is appl og to the data item and the newly 
computed item is stored in LOCAL_SPACE on the stack. 

The handling routine then changes R4 to point to LOCAL_SPACE 
so that MOVEIT will move the item from local storage. 


; CALLING SEQUENCE: 


POPIPIPIPIPIPINIPINYINIPIPINIPINIPIPIPIPIPINIPININIPINPIPINININN 
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—E 13 
; 14 
1401 ; 
—E 1402; 
—E 1403; 
E 1404; 
E 1405 ; 
—E 14 $ : 
—E 1407 ; 
—E 14 S 3 
E 4e30 | 
E 1244 ; 
E 4e18 : 
: 1414 ; JSB/BSB 
6 : 1616 > INPUTS: 
E 1318 : Ri = item identifier 
E 1419; R3 = item Length 
E 1420; R4 = item address 
O72E 1421; R6 = user's buffer Length 
: 1? § 3 R9 = PCB address of target process 
E 1494 > IMPLICIT INPUTS: 
Sse th | noe 
072E 1428 : OUTPUTS: 
O72E 1429 ; 
aii oe 
0 E 1432 > IMPLICIT OUTPUTS: 
E 14 : 
8 : ee : none 
E 1236 : ROUTINE VALUE: 
E 133 3 
Tse 4430 : oe 
72E 1440 ; SIDE EFFECTS: 
72E 1441 ; 
72E 1366 s none 
Tse eta 
72E 1445 CHECK_SPC: 
Se \4c9 
72E 1233 : Registers R5 and R6 are saved at this level and may be used by 
72E 1449 ; the action routines without being saved. Action routines are JSB'ed 
4 : 1029 3; to with R5 containing the address of LOCAL_SPACE on the stack. 
72E 1452 © 
7 5 7d Q7 ; 14 ; mova R5,-(SP) 3 save registers 
5 C dO Q7 1454 MOVL #SPECIAL LEn.RS : get number of table entries 
56 FASO CF DE 0734 1455 MOVAL SPECIAL,R 3; get address of table 
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502 e508 SPECIAL = hedis special conditions P-19 SYS.SRCISYSGETJPI.MAR;1 ” 
739 14 § 10$: 
86 1 ; 9 14 CMPW 4 (R6)+ ; does entry match item? 
C 14 BEQL 20$ i yes, go handle it 
56 C ; 14 ADDL aeene 3; skip handler address 
F555 —CoéF 74 138 SOBGTR B 108 3; scan rest of table 
6 11 244 146 oe BRB o$ ; nothing to do, exit 
55 D8 AD oF ree 1488 MOVAL LOCAL_SPACE(FP),RS5 3; load local address for action routine 
9 «1 pen 1? : $08 JSB a(R6)F : call action routine 
55 8E& 7D O74C 1486 MOVa (SP)+,R5 ; restore registers 
05 ref es RSB 
750 1469 : Data handling routines 
750 1470 ; . 
Fay }ah3 
3 1478 ; Internal priority must be subtracted from 31 before being returned. 
750 1475 © 
730 1476 SPC_PRI: 
65 Ff $% 83 0750 147 SUBB3) = (R4) , #31, (R5) 3 compute external priority 
54 5 DO 0754 1478 MOVL R5,R4 3; change address for move routine 
05 0757 1479 
Fae jabs 
75 1386 ; Check the PCBSL_STS bits to get the mode 
rah ee 
Pee 1485 SPC_MODE: 
56 24 A9 DO O07 1056 PCBSL_STS(R9) ,R6 3 the bits are in the STS 
65 01 dO O75C 14 MOVL #JPISR_NETWORK, (R5) 3 assume network 
1156 15 €0 O75F 1488 BBS #PCBSV_NETWRK Re 10 : if set, all done 
65 02 DO 0763 1489 MOVL #JPISK™BATCH, (R55 : now try batch mode 
OA 5 of EO 0766 1490 BBS #PCBSV_BATCH,R6,10$ 
6 0 DO O76A 1491 MOVL #JPISK~ INTERACTIVE (R5) ; now try interactive mode 
03 56 «(19 EO 76D 149¢ BBS #PCBSV~INTER,R6, 108 
5 90 DO 0771 149 MOVL #JPISK-OTHER, (RS) ; it must be ‘other’ mode 
4 » 774 1494 10$: MOVL R5,R4 3 point at the ‘data’ 
0 777 «1495 RSB 
et 
77 1038 3; Working set pointers are indices into working set List 
778 1499 ; and must be subtracted from first List element. 
rh ae 
77 1 § SPC_WORKSET: 
00000000°EF 59 D1 QO778 1 CMPL R9, SCHSGL_CURPCB : is the target process our own? 
07 3 77F 1504 BEQL 15 ; EQL means it is 
65 64 F4 AD A 781 1505 SUBW3 Ya, ESTEP PD, (863,03) 3 use the saved WSLIST 
Boh) Es $ 1 $ BRB 1 ; don't touch CTL here 
56 09900099" BE 7? 1 15$: MOVL @*CTLSGL_PHD,R6 ; get process header address 
65 64 O Ag A3 O078F 1 8 SUBW3 PHDSW_WSCIST(R6),(R4),(R5) ; compute argument size 
a. D 794 «1 17$: MOVL R5,R4 3 change item address 
64 6 797 1510 INCH = (RA) + must add one to index 
Ri 


SYSGETJPI 
V0u=600 


'& 
xv 


> > > >>> >>> 


WOOOOO00O0N0 


>>>>rrrrrr,r 
PVT SVS EB BS BS BEE BE NAAN AIA AI AIA POPIPINNPONINII 4 OS Ol 


DWONAWE WN O OO NAMES WIN OOD NAUE WN 0 OO NAME WT  OOONOUE Ww 


ovu0u°o-co 


} 
16 mei ~ | 
$S_INFORRATION.syStEh SER Ter SEpa1obe OS:ahia) Leys eRCTSTSCET OPI on Sa oh 


“SEP- SYS. Shc ls SGET JPI.MAR;1 


Convert the pcb vector index inte . nbrgcess index. This is so that £900} tcottens 


which used to use the low yord of 
JPIS_PROC_INDEX, is very similar to "ene current pix: 


e PID as an index can adapt. tem, 


PROC_INDEX is a 1 er pacenre 1 and the orpeet parameter MAXPROCESSCNT. 


This means that it is a onelt “mumber and 
stattentic altecate bitvectors or othe 


hat it is practical to 
r vectors for the maximum 


number of processes expected. 


At any instant, no more than one process will have a given PROC_INDEX. 
In particular, no other process will have the same PROC_INDEX aS you. 
This guarantees no contte ions. If the application wantéd to know 
about reuse of the PROC_INDEX, it could store the EPID in the 

vector and do its own check. 


No program should assume that PROC_INDEX is anything more than this. Note t 
the sole purpose of the following arithmetic is to make sure that PROC_ INDEX” *s 
NOT the pcb vector index! 


SPC_PROC_INDEX: 

MOVZ2WL (R4),R6 
MOVZ2WL SGNS$GW_MAXPRCCT, (RS) 
SUBL2 R6,(R5) 


MOV 
RSB 


Get the PIX into a regtste 

Move the MAXPROCESSCN into the scratch 
Convert 0 to N-1 to range N to 1 

Point at the new value for move routine 


Sete Ge te 


; Convert the MPID from the JIB to extended format. 


: Inputs: 
: R4 = Addr of MPID in internal format 
: R5 = Addr of scratch buffer 
: Outputs: 
: R4 = Addr. MPID in extended format 
SPC_MASTER PID: 
MOTL (R4),RO 3; get MPID 
JSB G°EXESIPID_T0_EPID 3; convert it to extended format 
MOVL RO, (RS) 3 store converted PID in seratch buffer 
pox R5,R4 3 point to the converted PID 


ro v04-00 
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~~ mje 


8B ; 
788 ; The current image file name is in the Image File Descriptor Block. It 
yee : is also in user writable memory, so all addresses must be probed. 
788 ; Inputs: 
ree ; R4 = CTLSGL_IMGHDRBF, address of image header buffer 
788 3; Outputs: 
788 3 R3 = size of iaage file name 
ree ; R4 = address of image file name 
788 
7BB EXESCHKIMAGNAME: : 
54 «64 0 BB MOVL (R4) RS 3 get address of image header buffer 
19 «1 78 BEQL 118 : 1f EQL, no image active 
55 04 A4 D0 O7C MOVL 4(R4) ,R5 ; get address of image file descriptor 
764 IFNORD #8,1F0$Q CURPROG(RS} , 118.4 SLSC_USER ; check access to desc 
5314 a 7D VQ 1F6$Q_CURPROG(R »,R3 3; get image name descriptor 
: i 3¢ MOVZWL tot 3; assure size of string is in range 
0s cae R3,(R4),11$,MPSLSC_USER ; check access to string 
11$: : 
53 67C CLRO R3 3; zero string descriptor 
05 RSB P} 


The current image file name is in the Image File Descriptor Block. 
Probe it for maximum protection. 


If a compatibility mode exception handler has been declared for the 
proc ssume that an AME is running. Further assume that the second 
compat... .ity mode context page has been patterned enough after the 
image file descriptor block such that an alternate image name can be 
found there. In this case, return that image name. If the name is null, 
fall back to the name in the Image File Descriptor Block. Note that the 
pocend conpat tert tty mode context page is user writeable, so it must 

e probed. 


Inputs: 
° R4 = CTLSGL_IMGHDRBF, address of image header buffer 
8(SP) = user's buffer length 


Outpu 


SNS NNN SN SSNS SNS 


MWR MMMMMMNMoOCOVCIVCVCVTCVVOCVTVCVOVOVVTVTVTOVTVTVCVOVTVTCVTVTVTTCONO 


ts: 
R3 = size of image file name 
R4 = address of image file name 


wm Be Se Se Ge Ss Ge Se Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge te Ge Se 
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7 
, 
7 PC_IMAGNAME : 
56 O08 AE OD 7 MOVL 8(SP) ,R6 ; get the user's buffer Length 
4 64 00 07 1 MOVL = (R4) , RG i get address of image header buffer 
435 1 7 1 BEQL 10$ ; 1f EQL, no image active 
00000000'GF 0D 7 1 TSTL 9,5 TL OG. _COMANOL A ; is there wn running? 
A 1 7 1 BEQL $ ; if EQL ne. use image in IFD 
55 00000200°GF DE 07 1 MOVAL G*CTLSAL_CMCNTX**X200,R5 ; ge nt to second c-mode context page 
7 1 IFNORD #8 JFDSG> CURPROG(R ),10$,#PSLSC_USER ; check access to desc 
53 14 AS DOF 1 MOVL ty Q_CURPROG(R5S),R3 get length of image name string 
06 #1 7 1 BEQL $ ; 1f EQL, string is null, get from IFD 
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address of string 
° nm common code 


pti address of image file descriptor 
sLS¢ USER ; ¢ nest ® cess to desc 
i get ihage name descriptor 
: gssure ; ze of str ag gr in range 
is it bigger than the user's buffer? 


; yes, make user's size the real size 
; check access to string 


; zero string descriptor 


<LOCK_END-LOCK_BEGIN> LE 512 


or 


a a 
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-SBTTL MOVEFU = Move data from user to system buffer 


SYSGETJPI - GET JOB P 
V0a-600 ROVEFU= Mo 8) 


FUNCTIONAL DESCRIPTION: 


This routine is entered as the result of a special kernel AST 
generated by a process eoquest ing information through $GETJPI 
on another process. MOVEFU is passed control information and 
the item List in the AST packet. Also chained into the AST 
packet is another pecker for returning the data. This packet 
is returned by issuing a special kernel AST to the process 
requesting the information, to the Label MOVETU in GETJPI. 


CALLING SEQUENCE: 

JSB (as the result of a special kernel AST) 
INPUTS: 

RO:R3_ = scratch 

R4 = PCB ADDRESS 


RS - AST control block address 
Control block (see below) 


Bete Ge Ge Se Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Se Ge Ge Ge Ge Ge Sete Se Se Sete te tess 
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OUTPUTS: 
None 
4 ROUTINE VALUE: 
: None 
8 SIDE EFFECTS: 
; If the process requesting information still exists, a special 
8 te kernel AST is issued to address MOVETU to process the filled 
8 5 information packets. 
a 
4 8 -enable Lsb 
MOVEFU: 
FFO 8F BB 0 PUSHR #*M<R4,R5,R6,R7,R8,R9,R10,R11,FP> 
5—E OD 1 MOVL P,FP ; set address of local storage 
5E 08 AE DE : MOVAL LOCAL_SPAC (sp) SP : at locate local storage 
oc A aS OD MOVL ACB_L“OPID(R5) ,ACBSL_PID(RS) ; turn the block around 
18 AS O8CiI'CF 9 4 MOVA W°MOVETU,ACBSL_KAST(RS) ; ney AST routine 
0B AS $ SF OB 685 BISB #<1@ACBSV_KASTS,AC $B_RMOD(R ») 3; set special kernel bit again 
2A A D 4 6 § _L_COURT(RS),R 3 get item count 
° 1C A D 4 6 MOVL ACB_L_DADDR(R5) .R 3; get data block address 
5 34 AS 43 4 6 3 MOVAL ACB R-ILISTCR »,R7 3 point to start of item list 
59 54 OD 5 6 MOVL R4,R ; setup for call to CHECKITEM 
H $1 : Loop through item descriptor List, moving data to the system buffer 
56 7 45 : 38 10s: MOVZWL (R7)+,R6 ; get user buffer size 
EC AD 57 p 5 94 MOVL 7 PHO TEMPCFP) > Save ddress of item identifier 
51 7 C 5 95 MOVZWL (R7)+,R : item identifier 
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98 BSBW CHECKITEM i get address ang ¢ size of item 
BSBW CHECK SPC 3; check for special types 
38 CMPL #CSTRING,RS 3 counted ering? se 
9 BNEQ 3 branch i 
MOVZBL (R4)+,R3 3 get length. oad skip length byte 
20$: MOVW R sonore (FP 3; clobber item code with sfource siz 
MOVCS R35,(R4),#0,R6, tR11) 3 move data to system buffer ’ 
4 MOVL R ait 3; update system oe nde pointer 
5 ADDL #8,R7 $ pocese ten descriptor rPadares 
$ oping user buffer resse 
$ ; SOBGTR R10,10$ $ aecreaeht Veen count and loop " 
§ : We have moved all the data to the system buffer. Restore registers, and 
10 ; check to see if the requesting process is still active, before we queue the 
12 3 return kernel AST 
13° MOVAL -LOCAL_SPACE(SP),SP remove local st f tack 
14 POPR PMCRST =RS,R6,R7 » ae RO, nib, Ril, FP> ee 
15 30$: SETIPL 50$ raise IPL to synch, lock code. 
18 MOVZWL ACB  ,0P ID(RS) ,R1 ot PID 
1 MOVL  aSCASG peavectRid, PCB address associated. 
18 cHPL PCBSL SPIDCR BS AcBSC. PID cist j Same PID in both places? 


fn 
BBS #PCBSV_DELPEN, PCBSL _stsch), 40S 3 erred if delete pending 


CLRL 4 : null prterts increment 
JSB SCHSQAST 3 queue the AS 
hg #IPL$_ASTDEL : drop back to AST delivery level 


he process did not exist, or was marked for delete, deallocate the 
ks and return. 


dos: SETIPL “PLS. ASTDEL 
DEANONPAGED: 


oc 


drop back to AST delivery level 
get AST block address 

ocal point for all calls to EXESD... 
deallocate it and exit 


G*EXESDEANONPAGED 
The preceding, code aust raise IPL to synchronize access to process database, 
; but since it is paged it must be locked in memory. The usage of the SETIPL 
macro above, both raises IPL and faults the code into memory. 


0$: 


WP 0 Oe Oe Oe ee 


BYTE TPL YNCH 
ASsu ue “=308> LE 512 
sab 


: end of ocked code region 
3; only 512 bytes can be locked 


ssi" - 
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-SBTTL MOVETU = Move data from system buffer to user 


FUNCTIONAL DESCRIPTION: 


MOVETU is entered as the result of a special kernel AST queued by 

the routine MOVEFU from the process we were request sag information 
from on a GETJP1 system service. The data buffer has been filled, 
and now we must move that data from the system buffer to the user. 


Prior to storing the data, we check to see if the copy of PHDSL_IMGCNT 
that was saved in the packet is the same as that in the process header. 
If — are not equal, it means the image that issued the GETJPI service 
gh ted, and a new image is in memory; we should not move the data 

o the user. 


CALLING SEQUENCE: 

JSB (as the result of a special kernel AST) 
INPUTS: 

RO:R3 - scratch 

R4 = PCB address 

RS = AST control block address 

Control block data 


OUTPUTS: 


none | 
ROUTINE VALUE: | 
j 

none 

SIDE EFFECTS: | 
Attempts to move data to user buffers, as requested by original 
GETJPI request. May cause setting of event flags, 108, and | 
| 

| 


possibly an AST to the requestor. Errors in processing result 
in an attempt to post the error status in the 10SB, if specified. 


De Se Se Se Se Ge Se Se Ge Se Be Ge Se Ge Se Se Be Se Gi Se Ge Ge Se Ge Ge Ge Ge Se Se Se Se Se Se Se Se Ge Be Ge Se Se Se 


; See if PHDSL_IMGCNT has what we think it has in it, and free the blocks 
: and exit if Tt doesn't; if not equal, a different image is running! 


b+ — pad tt at ote 
Sete eee 2 
< 
m 
“— 
Cc 
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mmm 
os BDWWNOM OO — —2 — 2 — 0 ss a — — — — 9 — 2) — 3 4 2s 2s = as =n 2s — 9 — 2s 2s — ss ss 2 a ss a 2 a 


90 | 
53 OOO0000"EF D0 91 MOVL CTLSGL_PHD,R3 : get rocess header address 
2c A OOF4 C3 D1 38 CMPL PHDSL_IMGCNT(R3) ;ACB_L_IMGCNT(R5S) ; see if the same thing. 
1A «13 g BEQL 108 : 9° move data if equal 
03 0B AS 06 €1 94 BBC #ACBSV_QUOTA ACBSB_RMOD (RS 5$ ; has AST quota been charged? 
38 A4 95 INCW  PCBSW_ASTCNT(R4) ; give it back | 
—S a. eS 38 5$: MOVL R ; get address of AST block 
51 0080 cp 9 MOVL PCBSL_JIB(R4) .R1 ; get address of JIe 
36 A C 8 MOVZWL “ey 3126 (ROS R2 3; Convert count to longword 
20 a1 5 £6 9 ADDL  R2,JIB$L_BYTCNT(R1) ; restore buffer quota , 
D 1 00 BRE DEANONPAGED : deallocate AST block and exit 


vy 
“” 
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U 
EA 1801 
EA 1 § 108: 
OFFO 8F Be EA 1 PUSHR #*M<CRO,RS,R6,R27,RB,RI,R1I0,R11> 
9 A A OBEE 1804 MOVZBL ACBSB_RMOD(RS) RO ; get requester's access mode 
A Ad pO OBFe 1805 MOVL ACB_LCOUNT (R55 ,R10 ; get item count | 
1 CA D F6 1 36 MOVL ACB_L_DADDR(R5) ,R1 ; get data buffer address 
6 & DE fe ! 4 MOVAL ACB_L_LILIST(R5) ,R6 i; get starting address of the List 
FE 1809 ; Loop through item descriptor List, moving data to user buffer(s) 
rH bos 
7 86 3 FE 1 " — MOVZWL (R6)+,R7 ; user buffer Length 
3 6 C 01 181 MOVZWL (R6)+,R8 ; actual data length 
6 00 4 : I MOVL (R6)+,R5 ; user buffer address 
84 ; 18 : Check that requester still has write access to his buffer | 
50 55 00 0907 1818 © MOVL  R5,RO ; buffer address to RO | 
51 DD O90A 1819 PUSHL Ri ; Save R1 
51 57 pO 0O90C 1820 MOVL R7,R1 ; and size to R1 
53. 59 «=O O90F §=61821 MOVL R9,R3 ; use access mode value from AC& for PROBE | 
neceeds 16 pais 18 § JSB EXESPROBEW ; check write accessibility of buffer 
1 8EDO 0918 18 POPL R ; Restore R1 
2250 €9 pole i : BLBC RO,50$ ; get out if buffer inaccessible 
043 \s § > Now actually move the data 
sé 61 37 @ $91 1828 - AOVCS = R7,(R1),(R5) ; move data to user buffer 
50 686 0 09 1829 MOVL (R6)+,RO ; get address to store actual length 
11 13 O9 1830 BEQL 40$ ; branch if no Length wanted 
09 1831 IFNOWRT #2, (RO) ,50$,R9 ; requester still have access to buffer? | 
57 58 D1 O92D 18 ¢ CMPL R8,R7 ; actual data length less than user's? 
05 15 0930 183 BLEQ 30$ ; branch if yes - use actual Length 
58 57 pO O9 ¢ 1834 MOVL R7,R8 ; use user buffer Length 
60 58 B60 09 + 5 30$: MOVW RB, (RO) 3 return buffer Lengt 
C3 5A OFS «C0938 1 $ 40$: SOBGTR R10,20$ ; decrement item count and Loop 
50 } *f 03 : i _— #SS$_NORMAL ,RO ; set successful completion 
S a - = 034 : 33 508: MOVZWL #SS$_ACCVIO,RO ; set access violation failure | 
a ! rh > Restore original registers, set the event flag, and post completion status 
OFFO ef 43 1 rk 60$:  POPR #*M<R4,R5.R6,R7,R8,R9,R10,R11> | 
DD 0947 1844 PUSHL RO ; save status 
535 204A 00 49 1845 MOVL ACB_L_EFN(RS) ,R3 ; get event flag number 
51 60 A4 00 4D 1 #6 MOVL PCBSL_PID(R4) ,R1 ; and PID for process 
D4 0951 184 CLRL & ; set null priority increment 
O00C0000'GF 1 es 1 7 JSB G*SCHSPOSTEF ; set the event flag | 
g 8ED 959 184 POPL ; restore exit status 
EH a EE Ree pt tmmornn ns pelt ote oat, 
- branc 
8 1 26 IFNOWRT #4,(R ),70$,ACB$B_RMOD(R5) ; check if 10SB still accessable 
635 50 »o00 09 185 MOVL ; store completion status 
60 34 ; Return the BYTCNT quota to the caller | 
2 AS 3C 09 1856 70S: MOVZWL ACBSW_SIZE(R5) ,R2 ; convert to Longword | 
51° 0080 4 «0 396 1 3 MOVL  PCBSL-JIB(R4),R1 : get JIB address 
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SYS.SRCISYSGETJP1.MAR;1 
4 ADDL R2,JIBSL_BYTCNT(R1) ; restore buffer quota 
60 ; If an AST was specified, queue it to caller and return. 

; TSTL ACBSL_AST(RS) ; is an address supplied? 
g peat B08 i : branch 9 not. “yi 
64 CLRL 3 no priority increment 

: JMP SCHSQAST ; queue AST to user and exit 
86 : No AST specified, deallocate the AST control block and return. 


4 bos: MOVL R5,RO ; set the address of the AST block 
0 BRW DEANONPAGED ; deallocate the block and exit 
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FUNCTIONAL DESCRIPTION: 


Routine to convert a process name to a PID and check privileges. If a 
valid PID or process name is specified, the standard conversion 
routing EXESNAMPID is simply called. if, however, a PID that implies 
a ‘wildcard’ PID (-1) is specif 


Ooo 


ed, then the next active process is 
chosen as the process ID to pene to EXESNAMPID. EXESNAMPID then 
checks the requestor'’s privilege to obtain information about the 
process and returns the process's PCB address. 


INPUTS: 
4 = current process PCB address 
PIDADR(AP) = address of specifie 
PRCNAM(AP) = address of specifie 


OUTPUTS: 


d PID 
d process name descriptor 


RO = success/failure of operation 

R4 = current process PCB address 

R9 = specified process PCB address 

R11 = specified process PI 

@PIDADR(AP) = specified process PID or special ‘wildcard’ context PID 
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| 
| 
LSB 
56 08 MOVL  — PIDADR(AP) ,R6 ; get PID address 
| 
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B ; 1f eql - none 
IFNOWRT #4, (R6),50$ 3; check access to PID 
MOVL  (R6),RO : P 


et 
BGE % geq - standard extended °ID 
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38 


: Wildcard’ type PID specified 
: ; get PIX (Process Index) from PID 


55 RO,RS 3 
50 “iw wl MOVA G6*S$CHSGL NULLPCB,RO j special case handling fer NULL proc 
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BISL #<laJPI_V_WILD>,FLAGS(FP) ; mark wildcarding in progress 
increment PIX 
is PIX in valid range? 
if gtru, no = no more processes 
lean out top half of 
f oat this indicates actual NULL proc 
MOVL  @SCH$GL_PCBVECCRS5],RO get PCB address 
CMPL RO, #SCHSGL_NULLPCB ; unused process slot? 
. sg! yes - try next one 
15$: BBS #PCBSV_DELPEN,PCBSL_STS(RO),10$ ; also get next one if this 
; one is going awa 
MOVL PCBSL_EPID(RO), (R6) 3; store extended PID in argument List 


; Convert process name to PID, if specified, and check privileges 
20$: ADDL #4,AP ; make PIDADR top argument 


J ; get into nonmpaged code 
- SAVE _PSECT ; Save current .PSECT context 


0 
4 
a 
6 
? 
8 
9 
° 
§ 10$: INCW R 
CMPW = =—s-aR'5, SCHSGL_MAXPIX 
4 BGTRU 60$ 
55 5 
7 
7 
* 
9 
0 
4 
8 


50 00000000" FF 
00900000 ° 8F 


DA 24 A0 0 
66 64 AO 


MOVZWL R5,RS 
BEQL neg 
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vor00 NAMPID = Get specified process ID Ep 198e 68:8 241 CSYS.SRCISYSGETJP1.MAR; 1 , (8) | 
QDE 1929 | 
9DE 1950 ; The reason for jumping to the nonpaged exec rather than dynamically 
ODE 13 13 pecking ‘= pageable pages is that EXESNAMPID cannot be entered 
90E 1 § ; above IPL 2 and the dynamic locking would spusg that to happen. The 
SDE 1935; reason that Hireute must be entered at IPL 2 or lower is that it 
9DE 1934 ; touches the caller's argument List (which contains eppugents that | 
44: 13 5 ; could fault) and page faults are not allowed above IPL 2. 
99000005 19 ; sPSECT AEXENONPAGED ; EXESNAMPID returns at IPL$_SYNCH | 
FFFD* 1938 25$: BSBW EXESNAMPID ; get PCB address and check privileges 
0 1939 SETIPL #0 ; restore IPL = PCB is no Longer locked | 
05 $ 130% RSB i; go back to paged code 
000009DE 1306 RESTORE _PSECT ; get paged .PSECT context back 
3c 4 ¢C 4 194 SUBL #4 AP 3 restore argument pointer 
B cS: 2 9E1 1944 MOVL R1,R11 ; save PID 
07 FC AD DDtCéY 9E4 1945 BC #JPI_V WILD, FLAGS(FP) ,30$ : ‘wildcard’ PID specified? 
66 51 BO O9E9 1368 MOVW R1, (R6) 3; restore process index context 
02 A6 «6201s 0435 9h MNEGW #1,2(R6) ; else, set continuation context 
pare 13ep ; Check PID address and return 
0c 50 «=«E9 036 1951 Sos BLBC RO,408 ; branch if error 
59 54 00 O9F 1326 MOVL ; save PCB address 
00° 58 61 O9F6 195 CMPW = sR14, S*#SCHSC_SWPPIX : is PID a normal one? 
04 1A O9F9 1954 BGTR 40$ ; if GTRU, yes | 
FC AD O02 CB O9FB 1955 BISL #<1aJP1_V_NULLSWAP>,FLAGS(FP) ; indicate Null or Swapper process 
54 Q0000000'EF D0 +484 1956 40$: MOVL SCHS$GL_CURPCB,R4 3 restore current PCB address 
05 aoe 1957 RSB 
>» & £& OA 7 1959 508: MOVZWL #SS$_ACCVIO,RO ; set access violation 
F353 11 QAOA 1960 BRB 0$ ; 
50 0Q9A8 8F 3C OQADC 1961 60S: MOVZWL #SS$_NOMOREPROC,RO 3; set no more processes 
EC 11 All 4 ¢ BRB 40$ ; 
Al 196 
0A13 1964 - END 
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Symbol table ~SEP-1984 2:55:41 SYS.SRCISYSGETJPI.MAR;1 
eres _WSSWP = § PSLSM_IPL = OO1F 8 
PCBST_LNAME 5 PSLSS~ ~PRYMOD = 
PCBST _ ERMINAL = 4 25. $V- ” teitond = 1 
PCBSV_BATCH = ‘ WEStAR as R 02 
PCBSV_DELPEN = RSNS$_NPDYNMEM = 00 
$V_INTE = SCHSCHSEP eeeeeeee =X 08 
CBSV_NETWRK = 1 SCHSCLREF aeeneeee =X 
PCBSV_PHDRES = 1 ScHBC C6 L = 000 B80C 
PCBSV_SSRWAIT = OA SCHSC_COMO = 8 D 
PCBSV_SUSPE = SCHSC_MWAIT = 000 
PCBSW_APTCNT = 45 4 ae = 0000000 
PCBSW_ASTCNT = $8 SCHSC_SUS = 0000000A 
PCBSW_BIOCNT = A SCHSC_ SW Upp PIX eeeeneee = 6X OO 
P _BIOLM = 4 C SCH$GC_CURP eeeeeeee =X 
PCBSW_DIOCNT = 000000 f SCHSGL_MAXPIX eeekeeee =X 
PCBSW_DIOLM = 44 SCHSGL_NULLPCB eeeeeeee =X 
PCBSW_GPGCNT = 494444 34 SCHSGL-PCBVEC eaeeeeee = 6X OQ 
“GRP = 44 OBE SCHS$P Post TEF eeneeeee =X 0 
MEM = 4444: SCHSQA eteeeeee = XO 
PCBSW_PPGCNT = 000000 SCHSR anit eeeeeere XO 
PCBSW_PRCCNT = 44 $44 6 SCRATCH = FFFFFFDS8 
PCBSW_STAT = 00 B8085 SGNSGW_MAXPRCCT eeeneeee = =6X 
PCBSW_T = 000000 SPC_IMAGNAME 000007DC R 0 
PCBFLBTBL 4 oE$ e 02 SPC_MASTER_PID 000007AB R 0 
PCBTBL 0000087 R 02 SPC_ MODE 00000758 R 02 
PHD$B_AUTHPRI = 4944 HN SPC_PRI 4444 1 & 8 
PHDSB_DF PFC = 00000034 SPC_PROC_ INDEX 0000079A R 0 
PHD$SL_BIOCNT = 444634 SPC“ WORKSET 94 f4 R 02 
PHDSL_C I = 000 itt SPECIAL 0000101 R 02 
PHOSL_CPUTIM = 444 8 SPECIAL_LEN = 0000000C 
PHD$L_DIOCNT = 00000054 SS$_ACCVIO = 0000000C¢ 
PHDSL_FREPOVA = 4 94.043 S$S$_BADPARAM = 4444 Sg 
PHDSL_FREPIVA = 00000030 SS$_EXQUOTA = 0000001C 
PHDSL_FREPTECNT = 9444555 SS$_INSFMEM x 444 
PHDSL_IMGCNT = 000000F4 S$S$_NOMOREPROC = 4 9d | 
PHDSL_PAGEFLTS = 0000004C SSS_NONEXPR = Q000008E 
PHDS$SL_PAGF IL = 0000001C SS$_NORMAL a 46444 
PHD$Q_AUTHPRIV = Q00000E0 $S$_ SUSPENDED z 44 AG 
PHD$Q_IMAGPRIV = 44444 3 STEP = 00000005 
PHD$Q_PRIVMSK = 000 0 SYSSDCLAST aeneeeee GX 02 
PHDSW_ASTLM = 00000040 VALUE = 00000000 
PHDSW_DFWSCNT = OO1A WSLIST = FFFFFFFS4 
P Barer & = 6 
PHD$W_WSAUTH = A 
PHDSW- Bday = 4 
PHDSW_WSEXTENT = 1 
PHD$W_WSLIST = 0 
PHD$W_WSQUOTA = 1 
PHD$W" WSSIZE = 5 
PUOFLDTBL 1D1 R t3 
145 R 
PHDTERP = FFFFFFE 
PIDADR = : 
Pas IPL = ¢ 
= 
PRis TICOM = 4 
PSLSC_USER = 3 
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Psect synopsis -SEP-1984 05:55:41 SRC TJPI.MAR; 1 ( 


: 
df we ewreoenreorane 


PSECT name Allocation PSECT No. Attributes 
» 6 « 0 OSHR NO 
init ae 


NOP I CON 
-) NOPIC USR CON ABS OSHR 


LCL N EXE 

( LCL N EXE 
YFSSSYSGETJPI 8 ( §°} NOPIC USR (CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
YEXEPAGED 3 000 ; ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
AE XENONPAGED 0000000 4 ( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


: Performance indicators ! 


ee ee 


Phase Page faults CPU Time Elapsed Time 
Initialization 39 90:00:00.8 0:00:01.20 
zonnene processing if} BR! 0: 9-98 3: o ret 
Syabol, table sort se9 99:08:02:07 80:90:08 
ass :00:06. :00:20. 
Symbol table output 38 0: 0:00:35 Bp BR 1.44 
Psect synopsis output 3 0:00:00. 0:00:00.03 
Cross-reference output 0: 8790-08 BF Re Re Be 
Assembler run totals 1054 00:00:36.4 0:01:36. 


The working set Limit was 2100 pages. 

155941 bytes (266 pages) of virtual memory were used to buffer the intermediate code. 

There were 70 pages of symbol table space allocated to hold 1273 non-local one 119 local symbols. 
1964 source Lines were read in Pass 1, produc ing object records in Pass 2. 

51 pages of virtual memory were used to define 56 macros. 


+ + 
! Macro Library statistics : 
+ - 


Macro Library name Macros defined 


~$255$DUA28: [SYS 1B1sYSBLDMLB_MLB: 1 pererer aa Ti 
:CSYS.OBJILIB.MLB 8 
0 


“$255$DUA28: . MLB; 1 
$255$DUA28: SYSLIBISTARLET.ALB;2 1 
l libraries) 3 


TOTALS <a 
1632 GETS were required to define 30 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSGETJP1/OBJ=OBJ$:SYSGETJP] MSRC$:SYSGETJPI/UPDATE=(ENH$: SYSGETJP]) +EXECML$/LIB+SYS$LIBRARY : SYSBLDMLB/LIB 
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